File Coverage

blib/lib/Perl6/Perl.pm

Criterion	Covered	Total	%
statement	25	28	89.2
branch	5	6	83.3
condition	3	3	100.0
subroutine	7	8	87.5
pod	1	2	50.0
total	41	47	87.2

package Perl6::Perl;
#
# $Id: Perl.pm,v 0.1 2006/12/23 23:12:17 dankogai Exp dankogai $
#
use 5.008001;
use strict;
use warnings;
use Data::Dumper ();
use Scalar::Util qw/blessed/;
use base 'Exporter';
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
our @EXPORT = qw();
our %EXPORT_TAGS = ( 'all' => [ qw(
	p perl
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

# Default Values
our %DD_Default = (
    Deparse => 1,
    Terse   => 1,
    Useqq   => 1,
);

sub perl {
    my $self = shift;
    return $self unless ref $self;
    my $dd = Data::Dumper->new( [$self] );
    $dd->$_( $DD_Default{$_} ) for keys %DD_Default;
    $dd->Indent(
        blessed($self) && $self->isa('CODE') ? 2
	: ref $self eq 'CODE' ? 2 : 0
    );
    while ( my ( $k, $v ) = splice( @_, 0, 2 ) ){
	$k = ucfirst $k;
	$dd->$k($v);
    }
    return $dd->Dump;
}

sub p{ print perl(@_), "\n" }

*UNIVERSAL::perl = \&perl;

# Preloaded methods go here.

1;
__END__