Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
      "new() successful, blessed into right package" );
ok( $authCard->can( 'AuthorizeCard' ),
      "found the AuthorizeCard() method" );

Select or download this

1..4
ok 1 - new() successful
ok 2 - blessed into right package
ok 3
ok 4 - found the AuthorizeCard() method