Changes between Version 52 and Version 53 of Dev/Perl

Timestamp:

Mar 26, 2013 11:57:43 PM (12 years ago)

Author:

mitty

Comment:

--

Dev/Perl

@@ -155 +155 @@
  * cpan:Class::Accessor::Fast
   * newする際に初期値を与えないと、getterはundefを返す
-{{{#!perl
-use Foo;    # use base qw(Class::Accessor::Fast);
-my $foo = Foo->new;
-$foo->hoge;  # undef
-}}}
+  1. Foo.pm
+{{{#!perl
+package Foo;
+use base qw(Class::Accessor::Fast);
+
+__PACKAGE__->mk_accessors( qw(bar bazz) );
+
+1;
+}}}
+  1. main.pl
+{{{#!perl
+use Foo;
+use feature say;
+
+my $foo = Foo->new( {bar => 1} );
+if (defined $foo->bar) { say $foo->bar; }
+if (! defined $foo->bazz) { say "undef"; }
+$foo->hoge;
+}}}
+  1. $ ./main.pl
+{{{
+1
+undef
+Can't locate object method "hoge" via package "Foo" at main.pl line 7.
+}}}
+ * 放り込んだハッシュリファレンスは元の構造のままアクセスできる
+  1. main.pl
+{{{#!perl
+use Foo;
+use feature say;
+
+my $foo = Foo->new( {hoge => 1, fuga => 2, piyo => { moge => [ a => b => c => 1 ] }} );
+if (defined $foo->bar) { say $foo->bar; }
+
+use Data::Dumper;
+say Dumper $foo;
+}}}
+  1. $ ./main.pl
+{{{
+$VAR1 = bless( {
+                 'piyo' => {
+                             'moge' => [
+                                         'a',
+                                         'b',
+                                         'c',
+                                         1
+                                       ]
+                           },
+                 'fuga' => 2,
+                 'hoge' => 1
+               }, 'Foo' );
+
+}}}