-

git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@72 be1acefe-a474-0410-9a34-9b3221f2030f

t/PathObject.pm

@@ -0,0 +1,24 @@
+#
+# 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;