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
