Select Code to Download

sub parse {
    my ($self, $file_name) = @_;
...
        croak "$file_name doesn't exist";
    }
}

ok($xbrl->parse($incoming_file));

            sub parse {
    my ($self, $file_name) = @_;
    $self->{'_xbrl_file'} = $file_name;
...
        croak "$file_name doesn't exist";
    }
}