File: demo.pl

package info (click to toggle)
libdevel-trace-perl 0.12-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, jessie, jessie-kfreebsd, sid, stretch, wheezy
  • size: 84 kB
  • ctags: 7
  • sloc: perl: 49; makefile: 7
file content (21 lines) | stat: -rwxr-xr-x 668 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

######################### We start with some black magic to print on failure.

BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use Devel::Trace;
$loaded = 1;
print "ok 1\n";

######################### End of black magic.

open S, "< sample" or die "Couldn't open sample demo file: $!; aborting";
print while <S>;
close S;
print "\n";
print "Press enter to execute this file.  \n";
<STDIN>;
system("perl -I./blib/lib -d:Trace sample");
$? and die "Problem running sample program: $? exit status\n";