projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Move Archive::Tar from ext/ to cpan/
[p5sagit/p5-mst-13.2.git]
/
cpan
/
autodie
/
t
/
lib
/
autodie
/
test
/
au
/
exception.pm
1
package autodie::test::au::exception;
2
use strict;
3
use warnings;
4
5
use base qw(autodie::exception);
6
7
sub time_for_a_beer {
8
return "Now's a good time for a beer.";
9
}
10
11
sub stringify {
12
my ($this) = @_;
13
14
my $base_str = $this->SUPER::stringify;
15
16
return "$base_str\n" . $this->time_for_a_beer;
17
}
18
19
1;