File Coverage

blib/lib/Finance/PremiumBonds.pm

Criterion	Covered	Total	%
statement	17	29	58.6
branch	0	8	0.0
condition	0	6	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	24	51	47.0

package Finance::PremiumBonds;

# $Id$

use 5.005000;
use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use Carp;

our $VERSION = '0.07';
our $checker_url  = 'http://www.nsandi.com/premium-bonds-have-i-won-ajax';
our $agent_string = "Perl/Finance::PremiumBonds $VERSION";
our $holdernumfield = '';

sub has_won {

    my $holdernum = shift
        or carp "No holder number supplied" and return;

    my $period = shift || 'this_month';

    my $ua = LWP::UserAgent->new( agent => $agent_string );
    my $resp = $ua->post(
        $checker_url,
        {
            field_premium_bond_number => $holdernum,
            field_premium_bond_period => $period || 'this_month',
        }
    );

    if (!$resp->is_success) {
        warn "Request failed - " . $resp->status_line;
        return;
    }

    my $resp_data = JSON::from_json($resp->decoded_content);

    if ($resp_data->{holder_number} eq 'is_invalid') {
        carp "Holder number not recognised by NS+I";
        return;
    }

    # TODO: it'd be nice to know what the status is for a win (just 'win'?) but
    # I've never won, so I don't know - so for now, just treat the absence of
    # 'no_win' as a win.
    return $resp_data->{status} eq 'no_win' ? 0 : 1;
}



1;
__END__