/[suikacvs]/messaging/manakai/lib/Message/Field/Numval.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/Numval.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Fri Apr 5 14:55:28 2002 UTC revision 1.3 by wakaba, Sat Apr 13 01:33:54 2002 UTC
# Line 13  $VERSION=do{my @r=(q$Revision$=~/\d+/g); Line 13  $VERSION=do{my @r=(q$Revision$=~/\d+/g);
13  require Message::Util;  require Message::Util;
14  require Message::Field::Structured;  require Message::Field::Structured;
15  push @ISA, qw(Message::Field::Structured);  push @ISA, qw(Message::Field::Structured);
16  use overload '.=' => sub { $_[0]->comment_add ($_[1]) },  use overload '.=' => sub { $_[0]->comment_add ($_[1]); $_[0] },
17               '0+' => sub { $_[0]->{value} || $_[0]->{option}->{value_default} },               '0+' => sub { $_[0]->{value} || $_[0]->{option}->{value_default} },
18               '+=' => sub {               '+=' => sub {
19                 my $n = $_[0]->{value} + $_[1];                 my $n = $_[0]->{value} + $_[1];
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24