NAME

Finance::PremiumBonds - Perl extension to check Premium Bond holder's numbers

SYNOPSIS

use Finance::PremiumBonds;

if (defined(my $won = Finance::PremiumBonds::has_won($holder_number))) 
{
    print "Looks like you " . ($won)? 'may have won' : 'have not won';
} else {
    warn "An error occurred.";
}

DESCRIPTION

Quick way to look up a Premium Bond holder's number on the National Savings and Investments website to determine whether the holder has won any prizes recently.

Now uses the AJAX interface the NS&I site uses, which returns some JSON so we don't have to screen-scrape.

I've never won anything, so I don't know what the win response looks like (if you have, please do help me by letting me know!), so it treats the absence of the no_win status in the response as a win - this means it's possible that it could falsely report positive if there are other statuses, e.g. "failed to check" or similar.

FUNCTIONS

has_won($holder_number, $period)

Checks whether $holder_number has won any prizes in the specified period. Returns 1 if it looks like you've won, 0 if you haven't, or undef if it failed to check.

The period is any period recognised by the NS&I site - at the time of writing, that's this_month, last_six_month, unclaimed_prize. If it's not given, then this_month is used as a sensible default.

AUTHOR

David Precious, <davidp@preshweb.co.uk>

COPYRIGHT AND LICENSE

Copyright (C) 2008-2016 by David Precious

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available.

LIMITATIONS

Currently, the module detects lack of a recognised "losing" response rather than the presence of a winning response; without a holder's number which has won something, I can't see what the winning responses look like. Maybe my meagre Premium Bonds investment will win something one day, then I can update this module :)