Class::Accessor - accessorの自動作成

[Perl]

Class::Accessorを使えばnew constructerやaccessorを自動的に作成してくれる。

      1 #!/usr/bin/perl
      2
      3 { package Employee;
      4 use base qw(Class::Accessor);
      5 __PACKAGE__->mk_accessors(qw(name role));
      6 }
      7
      8 { package main;
      9 my $employee = Employee->new({ name => 'Hoge' } );
     10 $employee->{role} = 'Hage';
     11 print $employee->{name} . "\n";
     12 print $employee->{role} . "\n";
     13 }

---

---