Error-Show

 view release on metacpan or  search on metacpan

t/advanced_eval.t  view on Meta::CPAN

use strict;
use warnings;
use feature ":all";
use Test::More;

use Error::Show;

# Test the eval line offsetting works

my $program=
'# line before 1 
# line before 2
# line before 3

t/basic.t  view on Meta::CPAN

use strict;
use warnings;
use feature ":all";
use Test::More;

use Error::Show;

use File::Basename qw<dirname>;
my $file=__FILE__;

$@=undef;
my $dir=dirname $file;
my $context;

t/cli-check.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

use feature ':all';

use File::Basename qw<dirname>;
my $file=__FILE__;
my $dir=dirname $file;

{
  #Perform a check only . Redirect stderr to stdout
  my $cmd="$^X -I $dir/../lib -MError::Show -c $dir/syntax-ok.pl";
  my $result=`$cmd 2>&1`;

t/frames.t  view on Meta::CPAN

use strict;
use warnings;
use feature ":all";
use Test::More;

use Data::Dumper;
use Error::Show;

use File::Basename qw<dirname>;
my $file=__FILE__;

$@=undef;
my $dir=dirname $file;

t/reverse.t  view on Meta::CPAN

# Test if a frame stack is reversed when asked.
#
use strict;
use warnings;
use feature ":all";
use Test::More;

use Error::Show;


sub top {
  my @frames;
  my $i=0;
  push @frames, [caller $i++] while caller $i;