File Coverage

blib/lib/Palm/MaTirelire/DBItem.pm

Criterion	Covered	Total	%
statement	12	44	27.2
branch	0	12	0.0
condition			n/a
subroutine	4	11	36.3
pod	6	7	85.7
total	22	74	29.7

#
# Author          : Maxime Soulé
# Created On      : Thu Dec 30 00:26:56 2004
# Last Modified By: Maxime Soule
# Last Modified On: Mon May  3 14:56:33 2010
# Update Count    : 1
#
# Copyright (C) 2005, Maxime Soulé
# You may distribute this file under the terms of the Artistic
# License, as specified in the README file.
#

package Palm::MaTirelire::DBItem;

use strict;

use Palm::BlockPack;

use Palm::MaTirelire;

use base qw(Palm::MaTirelire);

our $VERSION = '1.0';


sub meta_infos ($)
{
    return {};
}


sub new
{
    my $classname   = shift;
    my $self        = $classname->SUPER::new(@_);

    # Create a generic PDB. No need to rebless it,
    # though.

    my $ref_meta_infos = $self->meta_infos;

    $self->{name} = $ref_meta_infos->{name};
    $self->{type} = $ref_meta_infos->{type};

    if (defined $ref_meta_infos->{appinfo_block})
    {
	$ref_meta_infos->{appinfo_block}->init_block($self->{appinfo});
    }

    return $self;
}

sub new_Record
{
    my $self = shift;
    my $retval = $self->SUPER::new_Record(@_);

    if (defined(my $record_block = $self->meta_infos->{record_block}))
    {
	$record_block->init_block($retval);
    }

    return $retval;
}


sub ParseAppInfoBlock
{
    my $self = shift;

    if (defined(my $appinfo_block = $self->meta_infos->{appinfo_block}))
    {
	return $appinfo_block->unpack_block(shift);
    }

    $self->SUPER::ParseAppInfoBlock(@_);
}


sub PackAppInfoBlock
{
    my $self = shift;

    if (defined(my $appinfo_block = $self->meta_infos->{appinfo_block}))
    {
	return $appinfo_block->pack_block($self->{appinfo});
    }

    $self->SUPER::PackAppInfoBlock(@_);
}


sub ParseRecord
{
    my $self = shift;
    my %record = @_;

    delete $record{offset};	# This is useless

    if (defined(my $record_block = $self->meta_infos->{record_block}))
    {
	$record_block->unpack_block(delete $record{data}, \%record);
    }

    return \%record;
}


sub PackRecord
{
    my $self = shift;

    if (defined(my $record_block = $self->meta_infos->{record_block}))
    {
	return $record_block->pack_block(shift);
    }

    return '';
}

1;
__END__