The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Finance-Card-Discover-0.05
River stage zero No dependents
2 ++
/ Finance::Card::Discover

NAME

Finance::Card::Discover - DiscoverCard account information and SOAN creation

SYNOPSIS

    use Finance::Card::Discover;

    my $card = Finance::Card::Discover->new(
        username => 'Your Username',
        password => 'Your Password',
    );

    for my $account ($card->accounts) {
        my $number     = $account->number;
        my $expiration = $account->expiration;
        printf "account: %s %s\n", $number, $expiration;

        my $balance = $account->balance;
        my $profile = $account->profile;

        my @transactions = $account->transactions;

        if (my $soan = $account->soan) {
            my $number = $soan->number;
            my $cid    = $soan->cid;
            printf "soan: %s %s\n", $number, $cid;
        }
        else {
            # SOAN request failed, see why.
            croak $account->card->response->dump;
        }

        for my $transaction ($account->soan_transactions) {
            my $date     = $transaction->date;
            my $merchant = $transaction->merchant;
            my $amount   = $transaction->amount;
            printf "transaction: %s %s %s\n", $date, $amount, $merchant;
        }
    }

DESCRIPTION

The Finance::Card::Discover module provides access to DiscoverCard account information and enables the creation of Secure Online Access Numbers.

METHODS

new

    $card = Finance::Card::Discover->new(
        username => 'Your Username',
        password => 'Your Password',
    )

Creates a new Finance::Card::Discover object.

accounts

Requests the accounts associated with the user and returns a list of Finance::Card::Discover::Account objects upon success.

response

    $response = $card->response()

Returns an HTTP::Response object for the last submitted request. Can be used to determine the details of an error.

ua

    $ua = $card->ua()
    $ua = $card->ua($ua)

Accessor for the UserAgent object.

SEE ALSO

Finance::Card::Discover::Account

http://www.discovercard.com/customer-service/security/create-soan.html

TODO

  • Other intersting request types found in the Flash app that are worth exploring:

    • activeaccounts

    • cancelacc

    • altercpn

    • changepass

REQUESTS AND BUGS

Please report any bugs or feature requests to http://rt.cpan.org/Public/Bug/Report.html?Queue=Finance-Card-Discover. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Finance::Card::Discover

You can also look for information at:

COPYRIGHT AND LICENSE

Copyright (C) 2010 gray <gray at cpan.org>, all rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

gray, <gray at cpan.org>