package InterestCheckingAccount;
use strict;
use warnings;
use base qw/InterestAccount CheckingAccount/;

sub new {
   my $class = shift;

   my ($name, $acct, $bal, $rate, $checks) = @_;

   my $self = $class->SUPER::new($name, $acct, $bal, $rate);

   $self->{checks} = $checks;
   return $self;
}

1;