r25262@alice-3: perigrin | 2007-07-11 14:48:15 -0500
updates for 0.0.2
r25669@alice-3: perigrin | 2007-07-16 21:45:56 -0500
add delete method
my $attr = shift;
return sub { scalar keys %{$attr->get_value($_[0])} ? 1 : 0 };
}
+ 'delete' => sub {
+ my $attr = shift;
+ return sub { delete $attr->get_value($_[0])->{$_[1]} };
+ }
}
}
);