Lines Matching full:my
38 my $x = "foo";
39 given(my $x = "bar") {
47 given(my $x = "foo") {
48 when(be_true(my $x = "bar")) {
61 my $ok;
72 my $ok;
84 my ($ok1, $ok2);
96 my $ok;
107 my $ok;
119 my $ok = 1;
124 my $undef;
125 my $ok = 1;
130 my $undef;
131 my $ok = 0;
137 my $ok = 1;
143 my $undef;
144 my $ok = 1;
150 my $ok = 1;
155 my $undef;
156 my $ok = 1;
162 my $ok = 1;
168 my $undef;
169 my $ok = 1;
175 my $ok = 0;
180 my $undef;
181 my $ok = 0;
186 my $undef;
187 my $ok = 0;
192 my $undef;
193 my $ok = 0;
201 my ($ok1, $ok2);
218 my $test = "explicit numeric comparison (<)";
219 my $twenty_five = 25;
220 my $ok;
233 my $test = "explicit numeric comparison (integer <)";
234 my $twenty_five = 25;
235 my $ok;
247 my $test = "explicit numeric comparison (<=)";
248 my $twenty_five = 25;
249 my $ok;
262 my $test = "explicit numeric comparison (integer <=)";
263 my $twenty_five = 25;
264 my $ok;
277 my $test = "explicit numeric comparison (>)";
278 my $twenty_five = 25;
279 my $ok;
291 my $test = "explicit numeric comparison (>=)";
292 my $twenty_five = 25;
293 my $ok;
306 my $test = "explicit numeric comparison (integer >)";
307 my $twenty_five = 25;
308 my $ok;
321 my $test = "explicit numeric comparison (integer >=)";
322 my $twenty_five = 25;
323 my $ok;
336 my $test = "explicit string comparison (lt)";
337 my $twenty_five = "25";
338 my $ok;
350 my $test = "explicit string comparison (le)";
351 my $twenty_five = "25";
352 my $ok;
364 my $test = "explicit string comparison (gt)";
365 my $twenty_five = 25;
366 my $ok;
378 my $test = "explicit string comparison (ge)";
379 my $twenty_five = 25;
380 my $ok;
393 my $ok;
402 my $ok;
416 my ($ok_d, $ok_f, $ok_r);
430 my $ok = 0;
438 my $ok = 0;
446 my $ok = 0;
447 my $obj = bless [];
456 my $ok = 0;
466 my $ok = 0;
476 my $ok = 0;
477 my %foo = ("bar", 0);
487 my $ok = 0;
497 my $ok = 1;
510 my $n = 0;
511 for my $l (qw(a b c d)) {
521 my $n = 0;
522 for my $l (qw(a b c d)) {
532 my $ok = 0;
542 my $ok = 0;
556 my ($class) = @_;
560 my ($self, $val) = @_;
565 my ($self) = @_;
571 my ($self) = @_;
576 my $f = tie my $v, "FetchCounter";
578 { my $test_name = "Multiple FETCHes in given, due to aliasing";
579 my $ok;
592 { my $test_name = "Only one FETCH (numeric when)";
593 my $ok;
608 { my $test_name = "Only one FETCH (string when)";
609 my $ok;
624 { my $test_name = "Only one FETCH (undef)";
625 my $ok;
629 given(my $undef) {
642 my $first = 1;
659 my $first = 1;
678 my $called_foo = 0;
680 my $called_bar = 0;
682 my ($matched_foo, $matched_bar) = (0, 0);
694 my $x = shift;
698 my ($ok1, $ok2) = (0,0);
726 my ($self, $other, $reversed) = @_;
741 my ($pkg, $retval) = @_;
750 my $test = "Overloaded obj in given (true)";
751 my $obj = OverloadTest->new(1);
752 my $matched;
763 my $test = "Overloaded obj in given (false)";
764 my $obj = OverloadTest->new(0);
765 my $matched;
775 my $test = "Overloaded obj in when (true)";
776 my $obj = OverloadTest->new(1);
777 my $matched;
791 my $test = "Overloaded obj in when (false)";
792 my $obj = OverloadTest->new(0);
793 my $matched;
809 my $ok;
816 my $ok;
826 my $ok;
835 my $ok;
847 my $x = "what";
848 given(my $x = "foo") {
850 is($x, "foo", "scope inside ... when my \$x = ...");
852 } when be_true(my $x = "bar");
853 is($x, "bar", "scope after ... when my \$x = ...");
857 my $x = 0;
858 given(my $x = 1) {
859 my $x = 2, continue when be_true();
860 is($x, undef, "scope after my \$x = ... when ...");
865 my $letter;
909 my $flag = 0;
919 my $flag = 0;
929 my $flag = 0;
938 my $flag = 0;
947 my $flag = 0;
968 my $lexical = 5;
969 my @things = (11 .. 26); # 16 elements
970 my @exp = (5, 16, 9);
973 my $scalar = do { given ($_) {
983 my $lexical = 5;
984 my @exp = (5, 7, 9);
987 my $scalar = do { given ($_) {
997 my @exp = (5, 9, 9);
999 my $scalar = do { given ($_) {
1010 my @things = (11 .. 13);
1011 my @exp = ('3 4 5', '11 12 13', '8 9');
1013 my @list = do { given ($_) {
1015 when (2) { my $fake = 'void'; 8, 9 }
1023 my @things = (12);
1024 my @exp = ('3 4 5', '6 7', '12');
1026 my @list = do { given ($_) {
1036 my @things = (11 .. 20); # 10 elements
1037 my @exp = ('m o o', '8 10', '8 10');
1039 my @list = do { given ($_) {
1049 my @exp = ('6 7', '', '6 7');
1051 my @list = do { given ($_) {
1062 my $smart_hash = sub {
1066 when (4) { my $fake; do { 4, 5 } }
1070 my $scalar;
1081 my @list;
1097 my @list = 10 .. 15;
1098 my @in_list;
1099 my @in_slice;
1116 my %list = map { $_ => $_ } "a" .. "f";
1117 my @in_list;
1118 my @in_slice;
1135 my $x = my $y = "aaa";
1147 my $tester = sub {
1148 my $id = shift;
1154 my $ext_lex = 7;
1159 my $given_lex = 4;
1165 when (1) { my $when_lex = 1 }
1181 my @descriptions = qw<
1197 for my $id (0 .. 9) {
1198 my $desc = $descriptions[$id];
1200 my $res = $tester->($id);
1204 my $id_plus_1 = $id + 1;
1240 my @descriptions = qw<
1247 for my $id (0 .. 3) {
1248 my $desc = $descriptions[$id];
1250 my $destroyed = 0;
1251 my $res_id;
1254 my $res = do {
1256 my $x;
1258 when (1) { my $y = Fmurrr->new($destroyed, 1); break }
1275 my @res = (1, do {
1293 my $d = 0;
1310 my $i;
1340 my @a = (1,2,3);
1352 my @a = (qw(a b c), do { when(/abc/) { qw(x y) } }, qw(d e f));
1366 my $s = "abc";
1367 my $ok = 0;