File Coverage

blib/lib/App/EvalServer/Language/Deparse.pm

Criterion	Covered	Total	%
statement	11	23	47.8
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	16	32	50.0

package App::EvalServer::Language::Deparse;
BEGIN {
  $App::EvalServer::Language::Deparse::AUTHORITY = 'cpan:HINRIK';
}
BEGIN {
  $App::EvalServer::Language::Deparse::VERSION = '0.08';
}

use strict;
use warnings;
use B::Deparse;

sub evaluate {
    my ($package, $code) = @_;

    my $sub = eval "no strict; no warnings; sub{ $code\n }";

    print STDERR $@ if length($@);
    my $dp = B::Deparse->new(qw<-p -q -x7>);
    my $ret = $dp->coderef2text($sub);

    $ret =~ s/\{//;
    $ret =~ s/package (?:\w+(?:::)?)+;//;
    $ret =~ s/ no warnings;//;
    $ret =~ s/\s+/ /g;
    $ret =~ s/\s*\}\s*$//;
    $ret =~ s/^\s*//;

    return $ret;
}

1;

=encoding utf8

=head1 NAME

App::EvalServer::Language::Deparse - Deparse Perl code with B::Deparse

=head1 AUTHOR

Hinrik Ern SigurEsson, [e-mail]

=head1 LICENSE AND COPYRIGHT

Copyright 2010 Hinrik Ern SigurEsson

This program is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut