sub method{
  my $self = shift;
  my %args = (
    date => undef,
    cost => undef,
  @_);
}