#!/usr/bin/perl -wT

package StaticMammal;

use strict;
use warnings;

sub new {
    my ($class) = @_;
    my $new_critter = bless {}, $class;
    return $new_critter;
}

sub walk {
    my ($self) = @_;
    print "A " . ref( $self ) . " walks " . $self->walks_how() . "\n";
    return;
}

sub talk {
    my ($self) = @_;
    print "A " . ref( $self ) . " says " . $self->talks_how() . "\n";
    return;
}

sub walks_how {
    return q(ponderously);
}

sub talks_how {
    return q(Grrr);
}


1;
__END__