YanoRyuichi.com/
Wiki
Blog
GitHub
Sandbox
開始行:
* Class::Accessor::Fastを使ってアクセサを作る [#nc099cf8]
Class::Accessor::Fastはクラスにアクセサを提供するモジュー...
package MyClass;
use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw/name address/);
#!/usr/local/bin/perl
my $obj = MyClass->new( { name => 'taro', address => 'to...
print $obj->name, "\n"; # taro
$obj->name('jiro');
print $obj->name, "\n"; # jiro
- $obj->name('jiro')は、$obj->set('name','saburo')でも良...
- Class::Accessor::Fastはnew()を提供するので、自分でnew()...
sub new { $self = shift->SUPER::new(@_); $self->name('de...
あるいは
sub new { $self = bless {}, shift; $self->name('default'...
のように自分で書いても良い。
- また、$obj2 = $obj->new() のようなnew()によるインスタン...
** 参考 [#e387153b]
http://search.cpan.org/perldoc?Class::Accessor
終了行:
* Class::Accessor::Fastを使ってアクセサを作る [#nc099cf8]
Class::Accessor::Fastはクラスにアクセサを提供するモジュー...
package MyClass;
use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw/name address/);
#!/usr/local/bin/perl
my $obj = MyClass->new( { name => 'taro', address => 'to...
print $obj->name, "\n"; # taro
$obj->name('jiro');
print $obj->name, "\n"; # jiro
- $obj->name('jiro')は、$obj->set('name','saburo')でも良...
- Class::Accessor::Fastはnew()を提供するので、自分でnew()...
sub new { $self = shift->SUPER::new(@_); $self->name('de...
あるいは
sub new { $self = bless {}, shift; $self->name('default'...
のように自分で書いても良い。
- また、$obj2 = $obj->new() のようなnew()によるインスタン...
** 参考 [#e387153b]
http://search.cpan.org/perldoc?Class::Accessor
ページ名: