Commit | Line | Data |
44a8e56a |
1 | #!./perl |
2 | # |
3 | # check UNIVERSAL |
4 | # |
5 | |
6 | print "1..4\n"; |
7 | |
8 | # explicit bless |
9 | |
10 | $a = {}; |
11 | bless $a, "Bob"; |
12 | if ($a->class eq "Bob") {print "ok 1\n";} else {print "not ok 1\n";} |
13 | |
14 | # bless through a package |
15 | |
16 | package Fred; |
17 | |
18 | $b = {}; |
19 | bless $b; |
20 | if ($b->class eq "Fred") {print "ok 2\n";} else {print "not ok 2\n";} |
21 | |
22 | package main; |
23 | |
24 | # same as test 1 and 2, but with other object syntax |
25 | |
26 | # explicit bless |
27 | |
28 | $a = {}; |
29 | bless $a, "Bob"; |
30 | if (class $a eq "Bob") {print "ok 3\n";} else {print "not ok 3\n";} |
31 | |
32 | # bless through a package |
33 | |
34 | package Fred; |
35 | |
36 | $b = {}; |
37 | bless $b; |
38 | if (class $b eq "Fred") {print "ok 4\n";} else {print "not ok 4\n";} |