The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

BPGN / Business-Tax-VAT-Validation-0.14 / t / use.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

              
#!/usr/bin/env perl -w
use strict;
use Test;
BEGIN { plan tests => 2 }
use Business::Tax::VAT::Validation;
my $hvat=Business::Tax::VAT::Validation->new();
if (ref $hvat){
    ok(1);
} else {
    ok(0);
}
my $res=$hvat->check('BE-0774257760');
if ($res){
    ok(1);
} else {
    warn $hvat->get_last_error_code.' '.$hvat->get_last_error;
}
exit;
__END__