view release on metacpan or  search on metacpan

t/split_ppi_node_by_namespace.t  view on Meta::CPAN

sub _test {
    my ($source, $expected_ref, $test_name) = @_;

    my $document = PPI::Document->new(\$source);

    my %expanded_expected;
    foreach my $namespace ( keys %{$expected_ref} ) {
        my $strings = $expected_ref->{$namespace};
        $expanded_expected{$namespace} =
            [ map { [ split m/ \n /x ] } @{$strings} ];
    }

    my $got = split_ppi_node_by_namespace($document);
    my %got_expanded;
    foreach my $namespace ( keys %{$got} ) {
        my $ppi_doms = $got->{$namespace};
        $got_expanded{$namespace} =
            [
                map {
                        [ map { _expand_tabs($_) } _new_dumper($_)->list() ]