File Coverage

blib/lib/Data/Sah/Filter/perl/Str/maybe_eval.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition	0	2	0.0
subroutine	2	4	50.0
pod	0	2	0.0
total	8	21	38.1

package Data::Sah::Filter::perl::Str::maybe_eval;

use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-02-06'; # DATE
our $DIST = 'Sah-Schemas-Str'; # DIST
our $VERSION = '0.018'; # VERSION

sub meta {
    +{
        v => 1,
        summary => "Eval string if in the form of 'sub { ... }'",
        might_fail => 1,
        args => {
            # XXX namespace
            # XXX use strict?
            # XXX use warnings?
        },
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $gen_args = $fargs{args} // {};

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do {", (
            "my \$tmp = $dt; ",
            "if (ref(\$tmp) || \$tmp !~ qr/\\Asub\\s*\\{.*\\}\\z/s) { ", (
                "[undef, \$tmp] "), # pass through
            "} else { ", (
                "my \$code = eval qq(package main; \$tmp); if (\$@) { [\"Error in compiling code: \$@\", \$tmp] } else { [undef, \$code] } ",
                "}"),
        ),
        "}",
    );

    $res;
}

1;
# ABSTRACT: Eval string if in the form of 'sub { ... }'

__END__