Lines Matching full:my
20 my $extra = 0 ;
32 my $CompressClass = 'IO::Compress::Bzip2';
33 my $UncompressClass = getInverse($CompressClass);
34 my $Error = getErrorRef($CompressClass);
35 my $UnError = getErrorRef($UncompressClass);
39 my $filename = shift ;
40 my $init = shift ;
43 my $fil = $UncompressClass->can('new')->( $UncompressClass, $filename,
48 my $data = '';
61 my $buffer ;
63 for my $value (undef, -1, 'fred')
65 my $stringValue = defined $value ? $value : 'undef';
67 my $err = "Parameter 'BlockSize100K' must be an unsigned int, got '$stringValue'";
68 my $bz ;
77 for my $value (0, 10, 99999)
79 my $stringValue = defined $value ? $value : 'undef';
81 my $err = "Parameter 'BlockSize100K' not between 1 and 9, got $stringValue";
82 my $bz ;
91 for my $value (undef, -1, 'fred')
93 my $stringValue = defined $value ? $value : 'undef';
95 my $err = "Parameter 'WorkFactor' must be an unsigned int, got '$stringValue'";
96 my $bz ;
105 for my $value (251, 99999)
107 my $stringValue = defined $value ? $value : 'undef';
109 my $err = "Parameter 'WorkFactor' not between 0 and 250, got $stringValue";
110 my $bz ;
125 my $buffer ;
127 for my $value (-1, 'fred')
129 my $stringValue = defined $value ? $value : 'undef';
131 my $err = "Parameter 'Small' must be an int, got '$stringValue'";
132 my $bz ;
146 my $hello = <<EOM ;
151 for my $value ( 1 .. 9 )
154 my $lex = LexFile->new( my $name );
155 my $bz ;
165 for my $value ( 0 .. 250 )
168 my $lex = LexFile->new( my $name );
169 my $bz ;
178 for my $value ( 0 .. 1 )
181 my $lex = LexFile->new( my $name );
182 my $bz ;
188 my $fil = $UncompressClass->can('new')->( $UncompressClass, $name,
192 my $data = '';