File Coverage

blib/lib/Finance/OFX/Response.pm

Criterion	Covered	Total	%
statement	15	38	39.4
branch	0	6	0.0
condition	0	6	0.0
subroutine	5	11	45.4
pod	5	6	83.3
total	25	67	37.3

# Filename: Response.pm
#
# OFX response
# http://www.ofx.net/
#
# Created February 16, 2008  Brandon Fosdick
#
# Copyright 2008 Brandon Fosdick  (BSD License)
#
# $Id: Response.pm,v 1.2 2008/03/04 04:22:27 bfoz Exp $

package Finance::OFX::Response;

use strict;
use warnings;
use vars qw($VERSION);
use base qw(HTTP::Response);

our $VERSION = '2';

use Finance::OFX::Parse;

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

# Create a new OFX::Response from an HTTP::Response object
# NOTE: Re-blesses the passed reference
sub from_http_response
{
    my ($this, $self) = @_;
    my $class = ref($this) || $this;
    bless $self, $class;

    return $self unless $self->is_success;

    # Parse the HTTP response into an OFX tree
    $self->{tree} = Finance::OFX::Parse::parse($self->content);
    $self->{ofx} = $self->{tree}{ofx};
    $self->{ofxHeader} = $self->{tree}{header};

    return $self;
}

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

sub ofx_header
{
    my $s = shift;
    $s->{ofxHeader} = shift if scalar @_;
    $s->{ofxHeader};
}

sub signonInstitution
{
    my $s = shift;
    return $s->{ofx}{signonmsgsrsv1}{sonrs}{fi};
}

sub signon_status_code
{
    my $s = shift;
    return $s->{ofx}{signonmsgsrsv1}{sonrs}{status}{code};
}

1;

__END__