Attribute::Static - implementing static method with attributes
package Foo; use Attribute::Static; sub new { my $class = shift; bless {}, $class; } sub bar : Static { my $class = shift; }
Foo->bar; # OK my $foo = Foo->new; $foo->bar; # NG
Attribute::Static implements something like static methods in Java.
sub foo : Static { }
must be called without instance.
the Attribute::Handlers manpage
Jiro Nishiguchi <jiro@cpan.org>
Copyright (C) 2005 by Jiro Nishiguchi
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.