Config-General/t/PathObject.pm

#
# Pathobject fake module to test Config::General
# without the need to install Path::Class::File module.
#
# Submitted by Matt S Trout, Copyright (c) 2009 Matt S Trout.


package PathObject;

use overload ('""' => 'stringify');

sub new {
       my $class = shift;
       my $self = {};
       bless $self, $class;
       return $self;
}

sub stringify {
       my ($self) = @_;
       return "t/test.rc";
}

1;