Help for this page

Select Code to Download


  1. or download this
        $VAR1 = bless({}, 'Note');
    $VAR2 = bless({}, 'Note');
  2. or download this
        package Note;
    use strict;
...
    has 'message' =>(is=> 'rw', isa =>'Str');
    
    1;
  3. or download this
        use strict;
    use warnings;
...
    }

    say Dumper(@Arr);
  4. or download this
        for my $counter (0 .. $#fin){
        push(@Arr,Note->unpack($fin[$counter]));
    }