Simon Wistow wrote:
[...]
package UNIVERSAL;

sub keys {
    my $self = shift;
    return unless ref $self;

return unless ref $self && $self->isa( 'HASH' );

...otherwise, the next line is going to die on any object reference that isn't a hash.

    return keys %{$self};
}

_______________________________________________ templates mailing list [EMAIL PROTECTED] http://lists.template-toolkit.org/mailman/listinfo/templates

Reply via email to