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, <
[email protected]>
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 :)
