| Name : perl-Tie-Proxy-Changes
| |
| Version : 0.2
| Vendor : obs://build_opensuse_org/devel:languages:perl
|
| Release : 6.1
| Date : 2015-04-19 18:44:29
|
| Group : Development/Libraries/Perl
| Source RPM : perl-Tie-Proxy-Changes-0.2-6.1.src.rpm
|
| Size : 0.02 MB
| |
| Packager : (none)
| |
| Summary : Track changes in your tied objects
|
Description :
Sometimes a tied object needs to keep track of all changes happening to its
data. This includes substructures with multi-level data. Returning a
\'Tie::Proxy::Changes\' object instead of the raw data will result in a STORE
call whenever the data is changed.
Here is a small example to illustrate to problem.
package main;
tie %data \'TiedObject\';
$data{FOO}={}; #Calls STORE(FOO,{})
$data{FOO}->{Bar}=1; #calls just FETCH.
But when TiedObject is changed, it does this:
package TiedObject;
sub FETCH {
my $self=shift;
my $key=shift;
return Tie::Proxy::Changes->new($self,$key,$data);
}
package main;
tie %data \'TiedObject\';
$data{FOO}={}; #Calls STORE(FOO,{})
$data{FOO}->{Bar}=1; #calls FETCH and then STORE(FOO,{Bar=>1}).
|
RPM found in directory: /packages/linux-pbone/ftp5.gwdg.de/pub/opensuse/repositories/devel:/languages:/perl:/CPAN-T/openSUSE_Tumbleweed/noarch |
