ext/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;