Lines Matching refs:class
50 my $class = shift @_;
51 return unless $class eq "Attribute::Handlers";
57 _usage_AH_ $class unless ref($mapping) eq 'HASH';
61 _usage_AH_ $class unless $attr =~ $qual_id
103 my ($class) = $AUTOLOAD =~ m/(.*)::/g;
105 croak "Can't locate class method '$AUTOLOAD' via package '$class'";
238 # a derived class) or typed to MyClass.
247 # a derived class) or typed to MyClass.
254 # a derived class) or typed to MyClass.
261 # a derived class) or typed to MyClass.
267 # derived class) with an :Ugly attribute.
274 # subroutine was declared in MyClass (or a derived class)
288 This module, when inherited by a package, allows that package's class to
314 This creates a handler for the attribute C<:Loud> in the class LoudDecl.
315 Thereafter, any subroutine declared with a C<:Loud> attribute in the class
364 The package name argument will typically be the name of the class into
366 class (since handlers are inherited).
546 Typically, however, things are the other way around: the tieable class expects
578 the name of an attribute to be created, and each value is the class to which
584 class name. For example:
602 facilitiate this, Attribute::Handlers recognizes a special "pseudo-class" --
643 If the class shown in L<SYNOPSIS> were placed in the MyClass.pm
665 MyClass::Good:ATTR(SCALAR)( 'MyClass', # class
673 MyClass::Bad:ATTR(SCALAR)( 'MyClass', # class
681 MyClass::Omni:ATTR(SCALAR)( 'MyClass', # class
692 MyClass::UGLY:ATTR(CODE)( 'SomeOtherClass', # class
700 MyClass::Omni:ATTR(CODE)( 'SomeOtherClass', # class
711 MyClass::Good:ATTR(ARRAY)( 'SomeOtherClass', # class
719 MyClass::Omni:ATTR(ARRAY)( 'SomeOtherClass', # class
730 MyClass::Good:ATTR(HASH)( 'SomeOtherClass', # class
738 MyClass::Omni:ATTR(HASH)( 'SomeOtherClass', # class