package Cat;
use strict;
use warnings;
sub class { $_[0] }
1;