NAME

Perl6::Perl - $obj->perl just like $obj.perl in Perl 6

SYNOPSIS

# As UNIVERSAL method
use Perl6::Perl;
use Foo::Bar;
my $baz  = Foo::Bar->new();
my $bazz = eval( $baz->perl ); # $bazz is a copy of $baz

# As subroutine so you can apply to non-objects
use Perl6::Perl qw/perl/; # explicitly import
perl $scalar;
perl \@array;
perl \%hash;
perl \*GLOB;
perl sub{ $_[0] + 1 };

# Ruby's p

p $complex_object;

DESCRIPTION

In Perl 6, everything is an object and every object comes with the .perl method that returns the eval()uable representation thereof. This module does just that.

Since Perl 5 is already shipped with Data::Dumper, this module makes use of it; In fact $obj->perl is just a wrapper to Dumper($obj) with options slightly different from Data::Dumper's default.

p as in Ruby.

This module also comes with p, which is analogous to that of ruby; It is simply sub p{ print perl(@_), "\n" }. But you save a lot of key strokes -- even more concise than say @_.perl .

Though p is not Perl6's spec, I couldn't resist adding this to this module because so many people envy Ruby for it :).

Data::Dumper options

Perl6::Perl uses the following values as default:

Deparse

1 so you can serialize coderef.

Terse

1 so no $VAR1 = appears.

Useqq

1 so you can safely inspect binary data as well as Unicode characters.

Indent

2 if the object is a coderef, 0 otherwise.

You can override these by feeding Data::Dumper options as follows;

$obj->perl(purity => 1); # if the object contains circular reference.

Note you can use all lowercaps here.

EXPORT

None by default. perl and p are exported on demand.

SEE ALSO

Data::Dumper, http://dev.perl.org/perl6/

AUTHOR

Dan Kogai, <dankogai@dan.co.jp>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Dan Kogai

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.