File Coverage

blib/lib/MetaStore/Item.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package MetaStore::Item;

=head1 NAME

MetaStore::Item - Base class for collections.

=head1 SYNOPSIS

    use MetaStore::Item;
    use base qw( MetaStore::Item );


=head1 DESCRIPTION

Base class for collections.

=head1 METHODS

=cut

use MetaStore::Base;
use Data::Dumper;
use strict;
use warnings;

our @ISA = qw( MetaStore::Base );
our $VERSION = '0.01';
use WebDAO;
__PACKAGE__->mk_attr( __init_rec=>undef, _attr=>undef);


sub _init {
    my $self = shift;
    my $ref = shift;
    $ref->{id} or die "Need id !".__PACKAGE__;
    _attr $self $ref->{attr};
    __init_rec $self $ref;
    return $self->SUPER::_init(@_);
}

#method fo init
sub _create {
    my $self = shift;
}

sub _changed {
   my $self = shift;
    if ( my $ar = tied %{ $self->_attr } ) {
        return $ar->_changed;
    }
    return 0;
}

sub _get_attr {
    my $self = shift;
    return $self->_attr;
}

=head2  dump

Dump object state

=cut
sub dump {
 my $self = shift;
 return $self->attr
}

=head2 restore ()

Restore state

=cut
sub restore {
    my $self= shift;
    if ( my $attr = shift ) {
        %{ $self->attr } =  %{$attr}
    }
}

=head2 attr

Get intem attributes

=cut

sub attr {
    return $_[0]->_attr
}

=head2 id

Get id of object

=cut

sub id {
    my $self = shift;
    return $self->__init_rec->{id};
}



1;
__END__