← Back to branch summary

~ubuntu-branches/ubuntu/precise/liberror-perl/precise

« back to all changes in this revision

Viewing changes to examples/warndie.pl

  • Committer: Bazaar Package Importer
  • Author(s): Clint Burfoot
  • Date: 2007-12-02 16:20:39 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20071202162039-gyz66vprze51ob4z
Tags: 0.17-1
http://bugs.debian.org/383606
http://bugs.debian.org/390482
* New upstream version (closes: #383606)
* debian/rules: use CURDIR instead of PWD (closes: #390482)
* debian/copyright: update copy of author's copyright
* debian/control: new standards version, debhelper dependency
* lib/Error/Simple.pm: manpage fix to POD

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/warndie.pl
 
1
#!/usr/bin/perl -w
 
2
 
 
3
require Error;
 
4
if( $ARGV[0] ) {
 
5
    import Error qw( :warndie );
 
6
    print "Imported the :warndie tag.\n";
 
7
    print "\n";
 
8
}
 
9
else {
 
10
    print "Running example without the :warndie tag.\n";
 
11
    print "Try also passing a true value as \$ARGV[0] to import this tag\n";
 
12
    print "\n";
 
13
}
 
14
 
 
15
sub inner {
 
16
  shift->foo();
 
17
}
 
18
 
 
19
sub outer {
 
20
  inner( @_ );
 
21
}
 
22
 
 
23
outer( undef );