File Coverage

blib/lib/Acme/Cow/Frogs.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	1	3	33.3
subroutine	4	4	100.0
pod	2	2	100.0
total	20	22	90.9

package Acme::Cow::Frogs;

use strict;

use Acme::Cow;

@Acme::Cow::Frogs::ISA = qw(Acme::Cow);

my $frogs = <<'EOC';
{$balloon}
                                              {$tr}
                                            {$tr}
          oO)-.                       .-(Oo
         /__  _\                     /_  __\
         \  \(  |     ()~()         |  )/  /
          \__|\ |    (-___-)        | /|__/
          '  '--'    ==`-'==        '--'  '
EOC

sub new
{
    my $proto = shift;
    my $class = ref $proto || $proto;
    my $self = $class->SUPER::new();
    $self->over(46);
    return bless $self, $class;
}

sub as_string
{
    my $self = shift;
    return $self->SUPER::as_string($frogs);
}

1;