File Coverage

blib/lib/Palm/MaTirelire.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	19	47.3

#
# Author          : Maxime Soulé
# Created On      : Sun Aug 29 21:56:26 2004
# Last Modified By: Maxime Soule
# Last Modified On: Mon May  3 15:01:11 2010
# Update Count    : 5
#
# 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;
use Palm::Raw();

use base qw(Palm::Raw);

our $VERSION = '1.6';

sub new
{
    my $classname   = shift;
    my $self        = $classname->SUPER::new(@_);
    # Create a generic PDB. No need to rebless it,
    # though.

    $self->{creator} = "MaT2";
    $self->{attributes}{resource} = 0;
                                # The PDB is not a resource database by
                                # default, but it's worth emphasizing,
                                # since MemoDB is explicitly not a PRC.
    $self->{attributes}{Backup} = 1; # Always set the backup bit...

    # Have to define type and name in subclasses...

    # Give the PDB a blank AppInfo block
    $self->{appinfo} = {};

    # Give the PDB a blank sort block
    $self->{sort} = undef;

    # Give the PDB an empty list of records
    $self->{records} = [];

    return $self;
}

1;
__END__