File Coverage

blib/lib/Finance/OFX/Institution.pm

Criterion	Covered	Total	%
statement	9	37	24.3
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	9	33.3
pod	6	6	100.0
total	18	67	26.8

# Filename: Institution.pm
#
# Class interface for an OFX financial institution
# http://www.ofx.net/
#
# Created January 30, 2008  Brandon Fosdick
#
# Copyright 2008 Brandon Fosdick  (BSD License)
#
# $Id: Institution.pm,v 1.2 2008/03/04 04:22:27 bfoz Exp $

package Finance::OFX::Institution;

use strict;
use warnings;

our $VERSION = '2';

use constant DEFAULT_OPTIONS =>
{
    'language'	    => 'ENG',
    'Date'	    => 28800,	# 1970-01-01
};

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

    # Initialization
    $self->{ORG} = delete $options{ORG};
    $self->{FID} = delete $options{FID};
    $self->{URL} = delete $options{URL};
    $self->{Date} = delete $options{Date};
    $self->{language} = delete $options{language};

    # Defaults
    for( keys %{DEFAULT_OPTIONS()} )
    {
	$self->{$_} = DEFAULT_OPTIONS()->{$_} unless defined $self->{$_};
    }

    return $self;
}

sub date
{
    my $s = shift;
    $s->{Date} = shift if scalar @_;
    $s->{Date};
}

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 language
{
    my $s = shift;
    $s->{language} = shift if scalar @_;
    $s->{language};
}

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

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

1;

__END__