vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libpod-coverage-perl/libpod-coverage-perl-0.19/t/lib/Tie.pm

   1 package Tie;
   2
   3 =head1 NAME
   4
   5 Tie - stubs to make sure that TIE* and friends are skipped
   6
   7 =head1 METHODS
   8
   9 =item foo
  10
  11 blah blah
  12
  13 =cut
  14
  15 sub foo {
  16     print "I like pie\n";
  17 }
  18
  19 sub TIESCALAR { print "foo"; }
  20 sub TIEARRAY { print "foo"; }
  21 sub TIEHASH { print "foo"; }
  22 sub TIEHANDLE { print "foo"; }
  23 sub FETCH { print "foo"; }
  24 sub STORE { print "foo"; }
  25 sub UNTIE { print "foo"; }
  26 sub FETCHSIZE { print "foo"; }
  27 sub STORESIZE { print "foo"; }
  28 sub POP { print "foo"; }
  29 sub PUSH { print "foo"; }
  30 sub SHIFT { print "foo"; }
  31 sub UNSHIFT { print "foo"; }
  32 sub SPLICE { print "foo"; }
  33 sub DELETE { print "foo"; }
  34 sub EXISTS { print "foo"; }
  35 sub EXTEND { print "foo"; }
  36 sub CLEAR { print "foo"; }
  37 sub FIRSTKEY { print "foo"; }
  38 sub NEXTKEY { print "foo"; }
  39 sub PRINT { print "foo"; }
  40 sub PRINTF { print "foo"; }
  41 sub WRITE { print "foo"; }
  42 sub READLINE { print "foo"; }
  43 sub GETC { print "foo"; }
  44 sub READ { print "foo"; }
  45 sub CLOSE { print "foo"; }
  46 sub BINMODE { print "foo"; }
  47 sub OPEN { print "foo"; }
  48 sub EOF { print "foo"; }
  49 sub FILENO { print "foo"; }
  50 sub SEEK { print "foo"; }
  51 sub TELL { print "foo"; }
  52
  53 1;