lib/Fops.pm
changeset 1 9416fc33d2a0
parent 0 21a87c5f86e4
child 2 1bd03bcf26b4
--- 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__