- Moose::Autobox::Ref perl() as alias to dump()

- tests for dump() and perl()

diff --git a/lib/Moose/Autobox/Ref.pm b/lib/Moose/Autobox/Ref.pm
index f4e397d..843d081 100644 (file)
--- a/lib/Moose/Autobox/Ref.pm
+++ b/lib/Moose/Autobox/Ref.pm
@@ -11,6 +11,8 @@ sub dump {
     return Data::Dumper::Dumper($self);
 }
 
+*perl = *dump;
+
 1;
 
 __END__
@@ -33,6 +35,12 @@ This is a role to describes a reference value.
 
 =item B<dump>
 
+Calls Data::Dumper::Dumper.
+
+=item B<perl>
+
+Same as B<dump>. For symmetry with Perl6's .perl method.
+
 =back
 
 =head1 BUGS
@@ -54,4 +62,4 @@ L<http://www.iinteractive.com>
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut

diff --git a/t/001_basic.t b/t/001_basic.t
index bff5f20..aeeb86e 100644 (file)
--- a/t/001_basic.t
+++ b/t/001_basic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 56;
+use Test::More tests => 58;
 
 BEGIN {
     use_ok('Moose::Autobox');
@@ -174,6 +174,16 @@ $a,
 [ 15, 20, 30, 10, 2, 6, 78, 101, 2, 10, 15, 20, 30 ], 
 '... the value is correctly put');
 
+my $expected_dump = qr/^\$VAR1\s*=\s*\[\s*15,\s*20,\s*30,\s*10,\s*2,\s*6,\s*78,\s*101,\s*2,\s*10,\s*15,\s*20,\s*30\s*\]\s*;\s*$/msx;
+
+like( $a->dump,
+      $expected_dump,
+      '... the value is correctly dumped' );
+is( $a->dump,
+    $a->perl,
+    '... the value is correctly dumped with perl()' );
+
+
 # Hash
 
 my $h = { one => 1, two => 2, three => 3 };