diff options
| author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2012-05-08 18:20:12 +0000 |
|---|---|---|
| committer | Lorry <lorry@roadtrain.codethink.co.uk> | 2012-10-03 12:23:37 +0000 |
| commit | 661707e7bd4282aeab5a2f6a8f02ca5731fd813f (patch) | |
| tree | 9b32ff910278233ad929888499ca8380f2696582 /t/01throw.t | |
| download | error-perl-tarball-661707e7bd4282aeab5a2f6a8f02ca5731fd813f.tar.gz | |
Imported from /srv/lorry/lorry-area/error-perl-tarball/Error-0.17018.tar.gz.baserock/morph
Diffstat (limited to 't/01throw.t')
| -rw-r--r-- | t/01throw.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/01throw.t b/t/01throw.t new file mode 100644 index 0000000..a1bdba2 --- /dev/null +++ b/t/01throw.t @@ -0,0 +1,25 @@ + +use Error qw(:try); + +print "1..4\n"; + +try { + print "ok 1\n"; +}; + + +try { + throw Error::Simple("ok 2\n",2); + print "not ok 2\n"; +} +catch Error::Simple with { + my $err = shift; + print "$err"; +} +finally { + print "ok 3\n"; +}; + +$err = prior Error; + +print "ok ",2+$err,"\n";; |