
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.


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.