File Coverage

blib/lib/Finance/OFX/Account.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	2	7	28.5
pod	4	5	80.0
total	12	46	26.0

# Filename: Account.pm
#
# Class interface for an OFX account
# http://www.ofx.net/
#
# Created February 11, 2008  Brandon Fosdick
#
# Copyright 2008 Brandon Fosdick  (BSD License)
#
# $Id: Account.pm,v 1.2 2008/03/04 04:22:27 bfoz Exp $

package Finance::OFX::Account;

use strict;
use warnings;

our $VERSION = '2';

sub new
{
    my ($this, %options) = @_;
    my $class = ref($this) || $this;
    my $self = {};
    bless $self, $class;

    # Initialization
    $self->{Type} = delete $options{Type};
    $self->{ID} = delete $options{ID};
    $self->{FID} = delete $options{FID};

    return $self;
}

sub type
{
    my $s = shift;
    $s->{Type} = shift if scalar @_;
    $s->{Type};
}

sub fid
{
    my $s = shift;
    $s->{FID} = shift if scalar @_; # Assign new value if an argument is given
    $s->{FID};			    # Return the stored value
}

sub id
{
    my $s = shift;
    $s->{ID} = shift if scalar @_;
    $s->{ID};
}

sub bankacctfrom
{
    my $s = shift;
    ''.$s->{FID}.
	''.$s->{ID}.
	''.$s->{Type}.
    '';
}

1;

__END__