view release on metacpan or  search on metacpan

lib/App/EvalServer/Language/Perl.pm  view on Meta::CPAN

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

use strict;
use warnings;

# TODO: attempt to load the utf8/unicode libraries.
#use utf8;
#use charnames qw(:full);
#BEGIN {
#    eval "\$\343\201\257 = 42";
#    uc "\x{666}";
#}

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

    local $@   = undef;
    local @INC = undef;
    local $_   = undef;

    $code = "no strict; no warnings; package main; $code";
    my $ret = eval $code;

    print STDERR $@ if length($@);
    return $ret;
}

1;

=encoding utf8

=head1 NAME

App::EvalServer::Language::Perl - Evaluate Perl code

=head1 AUTHOR

Hinrik E<Ouml>rn SigurE<eth>sson, hinrik.sig@gmail.com

=head1 LICENSE AND COPYRIGHT

Copyright 2010 Hinrik E<Ouml>rn SigurE<eth>sson

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

=cut