Features/Perl5Debugger: sewi.pl

File sewi.pl, 342 bytes (added by bowtie, 3 years ago)

sewi.pl

Line 
1#!/usr/bin/env perl
2
3use 5.010;
4use strict;
5use warnings;
6# Turn on $OUTPUT_AUTOFLUSH
7$| = 1;
8use diagnostics;
9use utf8;
10
11use Data::Printer { caller_info => 1 };
12use FindBin qw($Bin);
13use lib ("$Bin");
14
15use ExSewi qw(wh eh);
16
17my $fred = 'bloggs one';
18
19#bp 20, this is 19
20wh("foo");
21say $fred;
22
23eh($fred);
24say $fred;
25
26say 'END';
27
281;
29
30__END__
31