Lines Matching full:my
20 my $extra = 0 ;
22 my $st = eval { require Test::NoWarnings ; Test::NoWarnings->import; 1; };
31 my $CompressClass = identify();
32 my $UncompressClass = getInverse($CompressClass);
33 my $Error = getErrorRef($CompressClass);
34 my $UnError = getErrorRef($UncompressClass);
37 my $string = "\x{df}\x{100}\x80";
38 my $encString = Encode::encode_utf8($string);
39 my $buffer = $encString;
41 #for my $from ( qw(filename filehandle buffer) )
43 # my $input ;
44 # my $lex = LexFile->new( my $name );
59 for my $to ( qw(filehandle buffer))
63 my $lex2 = LexFile->new( my $name2 );
64 my $output;
65 my $buffer;
79 my $out ;
80 my $cs = $CompressClass->can('new')->( $CompressClass, $output, AutoClose =>1);
84 my $input;
92 my $ucs = $UncompressClass->can('new')->( $UncompressClass, $input, Append => 1);
93 my $got;
98 my $decode = Encode::decode_utf8($got);
110 my $out;
111 my $cs = $CompressClass->can('new')->( $CompressClass, \$out);
112 my $a = "a\xFF\x{100}";
121 my $output;
122 eval { my $cs = $CompressClass->can('new')->( $CompressClass, \$output, Encode => 'fred'); } ;
130 for my $to ( qw(filehandle filename buffer))
134 my $lex2 = LexFile->new( my $name2 );
135 my $output;
136 my $buffer;
151 my $out ;
152 my $cs = $CompressClass->can('new')->( $CompressClass, $output, AutoClose =>1, Encode => 'utf8');
156 my $input;
171 my $ucs = $UncompressClass->can('new')->( $UncompressClass, $input, AutoClose =>1, Append => 1);
172 my $got;
177 my $decode = Encode::decode_utf8($got);
184 # my $ucs = $UncompressClass->can('new')->( $UncompressClass, $input, Append => 1, Decode => 'utf8');
185 # my $got;