File Coverage

blib/lib/Finance/PremiumBonds.pm

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	12	0.0
condition	0	5	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	57	36.8

package Finance::PremiumBonds;

# $Id$

use 5.005000;
use strict;
use warnings;
use WWW::Mechanize;
use Carp;

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

sub has_won {

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


    my $mech = WWW::Mechanize->new( agent => $agent_string );

    $mech->get($checker_url);

    if (!$mech->success) {
        warn "Initial request failed - " . $mech->response->status_line;
        return;
    }


    my $form = $mech->form_with_fields($holdernumfield);
    if (!$form) {
        warn "Failed to find form containing $holdernumfield "
            . " - perhaps NS+I website has been changed";
        return;
    }

    $mech->field($holdernumfield, $holdernum);
    if (!$mech->click('submit')) {
        warn "Unable to submit lookup - " . $mech->response->status_line;
        return;
    }
    if ($mech->content =~ /holder number must be 10 numbers/msi
     || $mech->content =~ /check your holder's number - it is not valid/msi)
    {
        carp "Holder number not recognised by NS+I";
        return;
    }


    # TODO: it'd be nice to actually detect a winning response, rather than
    # the lack of a losing response - but I need a holder's number which has
    # actually won in order to see what the response is :)
    return ($mech->content =~ m{Sorry,? you haven't won}i)
        ? 0 : 1;
}



1;
__END__