Changeset 1649 for lang/perl/Class-Hookable

Timestamp:

11/16/07 16:44:31 (14 months ago)

Author:

nyarla

Message:

lang/perl/Class-Hookable: Slight adjustment of Class/Hookable.pm

Files:

• lang/perl/Class-Hookable/trunk/lib/Class/Hookable.pm (modified) (2 diffs)

lang/perl/Class-Hookable/trunk/lib/Class/Hookable.pm

@@ -164 +164 @@
 sub context {
     my $self = shift;
+
+    if ( ref $self->{'Class::Hookable'} ne 'HASH' ) {
+        $self->{'Class::Hookable'} = {
+            hooks => {},
+        };
+    }
 
     if ( @_ ) {
@@ -437 +443 @@
 
 This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=head1 SEE ALSO
+it under the same terms as Perl itse
 
 =cut