Changes between Version 3 and Version 4 of Perl

Timestamp:

08/09/06 19:42:27 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -170 +170 @@
 {{{
 #!perl
-#!/usr/bin/perl
-
 use strict;
 use diagnostics;
@@ -179 +177 @@
 
 sub new {
-        my $class = shift;
-        bless { "1" => "hogera" }, $class;
+    my $class = shift;
+    bless { "1" => "hogera" }, $class;
+}
+
+sub set_1 {
+    my ($self, $val) = @_;
+    $self->{"1"} = $val;
 }
 
 sub unko {
-        my $self = shift;
-        return $self->{"1"};
+    my $self = shift;
+    return $self->{"1"};
 }
 
@@ -191 +194 @@
 
 __END__
+
 }}}
 
@@ -205 +209 @@
 
 my $obj = new object;
+$obj->set_1("hage");
 
 my $serialized = nfreeze($obj);
@@ -243 +248 @@
 {{{
 #!sh
-$ ./freeze.pl | ./thaw.pl 
-hogera
-}}}
+$ ./freeze.pl | ./thaw.pl
+hage
+}}}