Object serialization: Difference between revisions
Content added Content deleted
m (moved Object Serialization to Object serialization) |
m (→{{header|Perl}}: adding newlines) |
||
Line 793: | Line 793: | ||
package Greeting; |
package Greeting; |
||
sub new { |
sub new { |
||
my $v = |
my $v = "Hello world!\n"; |
||
bless \$v, shift; |
bless \$v, shift; |
||
}; |
}; |
||
Line 804: | Line 804: | ||
use base qw(Greeting); # inherit methods |
use base qw(Greeting); # inherit methods |
||
sub new { # overwrite method of super class |
sub new { # overwrite method of super class |
||
my $v = |
my $v = "Hello world from Junior!\n"; |
||
bless \$v, shift; |
bless \$v, shift; |
||
}; |
}; |