File Coverage

blib/lib/Palm/MaTirelire/Descriptions.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	18	21	85.7

#
# Author          : Maxime Soulé
# Created On      : Sun Aug 29 21:40:59 2004
# Last Modified By: Maxime Soule
# Last Modified On: Mon May  3 14:55:52 2010
# Update Count    : 2
#
# 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::Descriptions;

use strict;

use Palm::BlockPack;

use Palm::MaTirelire::DBItem;

use base qw(Palm::MaTirelire::DBItem);

our $VERSION = '1.0';


# Each record
my $RECORD_BLOCK = Palm::BlockPack->new
    (UInt32	=> [
		    [ 'sign:2'		=> 0 ],
		    [ 'is_mode:1'	=> 0 ],
		    [ 'mode:5'		=> 0 ],
		    [ 'is_type:1'	=> 0 ],
		    [ 'type:8'		=> 0 ],
		    [ 'shortcut:8'	=> 0 ],
		    [ 'cheque_num:1'	=> 0 ],
		    [ 'auto_valid:1'	=> 0 ],
		    [ 'reserved:*'	=> 0 ],
		    ],
     'Z12'	=> [ 'amount'	=> '' ],
     'Z16'	=> [ 'account'	=> '' ],
     'Z16'	=> [ 'xfer'	=> '' ],
     'Z24'	=> [ 'only_in_account'	=> '' ],
     'Z*'	=> [ 'name'	=> '' ],
     );


sub import
{
    &Palm::PDB::RegisterPDBHandlers(__PACKAGE__, [ "MaT2", 'Desc' ]);
}


sub meta_infos ($)
{
    return { name => "MaTi-Descriptions",
	     type => "Desc",
	     record_block  => $RECORD_BLOCK,
	   };
}

1;
__END__