Select Code to Download

sub named { #class method
   my $self = shift->SUPER::named(@_);
...
   @$self{qw(wins places shows losses)} = @standings;
   $self;
}