--- a/lib/Fops.pm Tue Aug 02 00:21:00 2011 +0200
+++ b/lib/Fops.pm Tue Aug 02 16:02:54 2011 +0200
@@ -3,21 +3,26 @@
use warnings;
use Carp;
+our $VERSION = "0.1";
+
sub new {
my $class = ref $_[0] ? ref shift : shift;
my $implementation = shift;
- eval "require Fops::$implementation";
+ eval "require Fops::$implementation"
+ or die $@;
+
+ #"Fops::$implementation"->import("0.1");
return "Fops::$implementation"->new(@_);
}
sub type { shift->{type} }
+sub pwd { shift->{cwd} }
sub cd {
my $self = shift;
- croak "method `cd' needs implementation in ".ref $self;
+ croak "method `cd' needs implementation in " . ref $self;
}
-
1
__END__