in reply to How do YOU do OO in Perl?
Newly i use it in combination with Data::Type:
</xmp>class 'Idiot', { public => { string => [ qw( name title ) ], int => [ qw( score ) ], }, types => { string => STD::VARCHAR(80), int => STD::INTEGER, } }; my $murat = new Idiot name => 'murat', title => 'Mr.', score => 10; # + out of 10
Murat
Edit by tye, preserve formatting
|
---|