Select Code to Download

sub create {
    my $self = shift;
    my %p = @_;
...
$zoo->create(animal => 'camel',
             count  => '10',
             color  => 'green');