view release on metacpan or  search on metacpan

t/caller.t  view on Meta::CPAN

#!/usr/local/bin/perl -w

use Test;
use strict;

my $has_diff = eval "use Test::Differences; 1";

sub flatten {  ## In case !$has_diff
    join( "",
        map(
            "[" . join( ",", map defined $_ ? "'$_'" : "undef", @$_ ) . "]\n",
            shift()
        )
    );
}