brummett / data-transform-explicitmetadata Goto Github PK

Undefined subroutine &re::regexp_pattern called at /usr/home/cpan/pit/bare-clang/conf/perl-5.10.0/.cpanplus/5.10.0/build/Data-Transform-ExplicitMetadata-0.01/blib/lib/Data/Transform/ExplicitMetadata.pm line 103.
# Looks like you planned 34 tests but ran 25.
# Looks like your test exited with 9 just after 25.
t/basic.t ...... 
Dubious, test returned 9 (wstat 2304, 0x900)

#   Failed test 'encode bare filehandle'
#   at t\basic.t line 105.
#     Structures begin differing at:
#          $got->{__value}{IOseek} = '0 but true'
#     $expected->{__value}{IOseek} = undef
# Looks like you failed 1 test of 34.
t\basic.t ...... 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/34 subtests 
t\blessed.t .... ok

#   Failed test 'encode nested data structure'
#   at t\nested.t line 104.
#     Structures begin differing at:
#          $got->{__value}{array}{__value}[3]{__value}{IOseek} = '0 but true'
#     $expected->{__value}{array}{__value}[3]{__value}{IOseek} = undef

sub deparse_format {
    use B::Deparse;
    # translate arg (or reference to it) into a B::* object
    my $Bobj = B::svref_2object(ref $_[0] ? $_[0] : \$_[0]);
    # if passed a glob or globref, get the format
    $Bobj = B::GV::FORM($Bobj) if ref $Bobj eq 'B::GV';

    if (ref $Bobj ne 'B::FM') {
        require Carp;
        Carp::croak "deparse_format: expected a glob, globref, or format ref";
    }

    my $deparser = B::Deparse::->new();
    return $deparser->indent($deparser->deparse_format($Bobj));
}