rewrite Dir::pwd(), add Dir::new(), add examples of Dir.pm

examples/dir.pl

@@ -0,0 +1,6 @@
+#!/usr/bin/evn perl
+#
+use lib qw(lib examples/lib);
+use Rubyish;
+
+print Rubyish::Dir->pwd, "\n";

lib/Rubyish/Dir.pm

@@ -11,10 +11,20 @@ use 5.010;
 use base "Rubyish::Object";
 use Rubyish::Syntax::def;
 
+sub new {
+  my ($class, $dirname) = @_;
+  return \$dirname, $class;
+}
 
-def pwd {
+
+sub pwd {
+  my ($class) = @_;
+  if ($class eq __PACKAGE__) {
     use Cwd;
     cwd();
+  } elsif (ref($class)) {
+    warn "undefine method \'pwd\' for __PACKAGE__ instance";
+  }
 };
 
 1;

t/dir.t

@@ -3,9 +3,9 @@ use strict;
 
 use Rubyish;
 
-use Test::More;
+use Test::More "no_plan";
 
-plan tests => 1;
+can_ok( "Rubyish::Dir", qw(new pwd) );
 
 ok( Rubyish::Dir->pwd );