File Coverage

blib/lib/Finance/OFX/Tree.pm

Criterion	Covered	Total	%
statement	9	33	27.2
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	1	1	100.0
total	13	45	28.8

# Filename: Teee.pm
# Parse the Open Financial Exchange format
# http://www.ofx.net/
#
# Created January 30, 2008	Brandon Fosdick
#
# Copyright 2008 Brandon Fosdick  (BSD License)
#
# $Id: Tree.pm,v 1.2 2008/03/04 04:22:27 bfoz Exp $

package Finance::OFX::Tree;

use strict;
use warnings;

our $VERSION = '2';

use HTML::Parser;

sub parse
{
    my $source = shift;

    my @tree;
    my @stack;
    unshift @stack, \@tree;

    my $p = HTML::Parser->new(
	start_h	=> [sub
		    {
			my $data = shift;

			my @content = ();
			push @{$stack[0]}, {name => $data, content => \@content};
			unshift @stack, \@content;
		    }, 'tagname'],
	end_h	=> [sub
		    {	# An end event unwinds the stack by one level
			shift(@stack);
		    }, ''],
	text_h	=> [sub
		    {
			my $data = shift;
			$data =~ s/^\s*//;		# Strip leading whitespace
			$data =~ s/\s*$//;		# Strip trailing whitespace
			return unless length $data;	# Ignore empty strings
			if( scalar(@{$stack[0]}) )
			{
			    print STDERR "Naked text\n";
			    return;
			}
			shift @stack;	# Unwind the vestigal array reference
			@{$stack[0]}[-1]->{content} = $data;
		    }, 'dtext' ]);
    $p->unbroken_text(1);   # Want element contents in single blocks to facilitate parsing
    $p->parse($source);
    \@tree;
}

1;

__END__