git.maemo.org Git - dh-make-perl/blob - dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/08tie.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Test::More tests => 4;
   4 use lib 't/lib';
   5
   6 BEGIN {
   7     use_ok( 'Pod::Coverage' );
   8     use_ok( 'Pod::Coverage::ExportOnly' );
   9 }
  10
  11 my $obj = new Pod::Coverage package => 'Tie';
  12 isa_ok( $obj, 'Pod::Coverage' );
  13 is($obj->coverage, 1, "yay, skipped TIE* and friends");