sub named { #class method
   my $self = shift->SUPER::named(@_);
   my $name = $self->name;
   my @standings = split ' ', $STANDINGS{$name} || "0 0 0 0";
   @$self{qw(wins places shows losses)} = @standings;
   $self;
}