File Coverage

blib/lib/WWW/betfair/Template.pm

Criterion	Covered	Total	%
statement	6	28	21.4
branch	0	10	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	44	22.7

package WWW::betfair::Template;
use strict;
use warnings;

=head2 populate

Returns the XML message required for the betfair API

=cut

sub populate {
    my ($uri, $action, $params) = @_;

    #handle getAccountStatement betfair syntax exception
    my $req = $action eq 'getAccountStatement' ? 'req' : 'request';

    my $templateHeader = qq~<$action xmlns="$uri"><$req>~;

    my $templateBody = '';
    $templateBody .= markup_data(undef,$params);
    my $templateFooter = "";
    return $templateHeader . $templateBody . $templateFooter;
}

=head2 markup_data

Recursive tagging subroutine for a Perl data structure

=cut

sub markup_data {
    my ($key, $data) = @_;
    my $string = '';
    if (ref($data) eq 'HASH') {
        $string .= "<$key>" if $key;
        foreach (keys %{$data}) {
             $string .= markup_data($_, $data->{$_});
        }
        $string .= "" if $key;
        return $string;
    }
    elsif (ref($data) eq 'ARRAY') {
        my $string = '';
        foreach (@{$data}) {
            $string .= markup_data($key, $_);
        }
        return $string;
    }
    else {
        return "<$key>$data";
    }
}
1;