undef is invalid value for hash key, since this warning. If you don't want to see it you can check if $attribute defined or not:

sub get_attribute {
    my ( $self, $attribute ) = @_;
    return defined($attribute) ? $self->{ATTRIBUTES}{$attribute} : und
+ef;
}
[download]