id:lapis25 lapis25@gmail.com Kansai.pm Meeting #8/20070310
Larry Wall 070310 Kansai.pm Meeting #8/01-Perl-oo 2
070310 Kansai.pm Meeting #8/01-Perl-oo 3
070310 Kansai.pm Meeting #8/01-Perl-oo 5
070310 Kansai.pm Meeting #8/01-Perl-oo 6
070310 Kansai.pm Meeting #8/01-Perl-oo 7
070310 Kansai.pm Meeting #8/01-Perl-oo 8
070310 Kansai.pm Meeting #8/01-Perl-oo 9
070310 Kansai.pm Meeting #8/01-Perl-oo 10
package Class; 070310 Kansai.pm Meeting #8/01-Perl-oo 11
070310 Kansai.pm Meeting #8/01-Perl-oo 12
070310 Kansai.pm Meeting #8/01-Perl-oo 13
package Class; sub method { # } 070310 Kansai.pm Meeting #8/01-Perl-oo 14
$obj_ref->method('args'); Class::method($obj_ref, 'args'); 070310 Kansai.pm Meeting #8/01-Perl-oo 15
package Class; sub method { my ($self, @args) = @_; # } 070310 Kansai.pm Meeting #8/01-Perl-oo 16
070310 Kansai.pm Meeting #8/01-Perl-oo 17
070310 Kansai.pm Meeting #8/01-Perl-oo 18
070310 Kansai.pm Meeting #8/01-Perl-oo 19
bless $hash_ref, 'Class'; 070310 Kansai.pm Meeting #8/01-Perl-oo 20
#A bless print ref($hash_ref); #HASH bless $hash_ref, 'Class'; #B bless print ref($hash_ref); #Class _id _type _name $hash_ref Class '01' 'script' 'Perl' 070310 Kansai.pm Meeting #8/01-Perl-oo 21
070310 Kansai.pm Meeting #8/01-Perl-oo 22
070310 Kansai.pm Meeting #8/01-Perl-oo 23
070310 Kansai.pm Meeting #8/01-Perl-oo 24
package Class; sub new { my ($class, @args) = @_; return bless { @args }, $class; } 070310 Kansai.pm Meeting #8/01-Perl-oo 25
$obj_ref = Class->new( $id, $type); $obj_ref = Class::new('Class',$id, $type); 070310 Kansai.pm Meeting #8/01-Perl-oo 26
DESTROY 070310 Kansai.pm Meeting #8/01-Perl-oo 27
070310 Kansai.pm Meeting #8/01-Perl-oo 28
070310 Kansai.pm Meeting #8/01-Perl-oo 29
070310 Kansai.pm Meeting #8/01-Perl-oo 30
package PerlHacker; use base qw( Programmer Obfuscator ); package Programmer; use base qw( CoderDocumenter ); 070310 Kansai.pm Meeting #8/01-Perl-oo 31
Coder Documenter use base qw( CoderDocumenter ); Programmer Obfuscator use base qw( Programmer Obfuscator ); PerlHacker 070310 Kansai.pm Meeting #8/01-Perl-oo 32
Coder Documenter Programmer Obfuscator PerlHacker 070310 Kansai.pm Meeting #8/01-Perl-oo 33
070310 Kansai.pm Meeting #8/01-Perl-oo 34
070310 Kansai.pm Meeting #8/01-Perl-oo 35
070310 Kansai.pm Meeting #8/01-Perl-oo 36
070310 Kansai.pm Meeting #8/01-Perl-oo 37
070310 Kansai.pm Meeting #8/01-Perl-oo 38
070310 Kansai.pm Meeting #8/01-Perl-oo 39
070310 Kansai.pm Meeting #8/01-Perl-oo 40
070310 Kansai.pm Meeting #8/01-Perl-oo 41
070310 Kansai.pm Meeting #8/01-Perl-oo 42
070310 Kansai.pm Meeting #8/01-Perl-oo 43
Class::Accessor(::fast) Class::Data::Inheritable 070310 Kansai.pm Meeting #8/01-Perl-oo 44
NEXT Catalyst Class::C3 DBIC C3 NEXT 070310 Kansai.pm Meeting #8/01-Perl-oo 45
Class::Std 070310 Kansai.pm Meeting #8/01-Perl-oo 46
070310 Kansai.pm Meeting #8/01-Perl-oo 47
:-( Perl 070310 Kansai.pm Meeting #8/01-Perl-oo 48
070310 Kansai.pm Meeting #8/01-Perl-oo 49
070310 Kansai.pm Meeting #8/01-Perl-oo 50
Perl 070310 Kansai.pm Meeting #8/01-Perl-oo 51
070310 Kansai.pm Meeting #8/01-Perl-oo 52
ご静聴ありがとうございました 070310 Kansai.pm Meeting #8/01-Perl-oo 53
070310 Kansai.pm Meeting #8/01-Perl-oo 54