mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
25 lines
414 B
Perl
25 lines
414 B
Perl
|
#
|
||
|
|
# 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;
|