1use Test::More tests => 2; 2use strict; 3 4use_ok('Archive::Tar') or diag 'Archive::Tar not found -- exit' && die; 5 6my $tar = new Archive::Tar; 7isa_ok( $tar, 'Archive::Tar', 'Object created' ); 8