Select Code to Download

sub parse_file {
    my ($class, $file) = @_;
...
    my $type = shift @lines;
    croak "Can only handle bank accounts right now, not type $type"
        unless $type eq "!Type:Bank";

$ perl -MCarp=verbose qifread.pl 
 at /usr/local/lib/perl5/site_perl/5.8.4/Finance/QIF.pm line 124
        Finance::QIF::parse('Finance::QIF', '!Type:Bank\x{d}\x{a}D09/0
+7/2004\x{d}\x{a}PDTE ENERGY PAYMENT\x{d}\x{a}MDTE ENERGY PAY...') cal
+led at /usr/local/lib/perl5/site_perl/5.8.4/Finance/QIF.pm line 111
        Finance::QIF::parse_file('Finance::QIF', 'dfcu0904.qif') calle
+d at qifread.pl line 6