package A; sub NEW { bless {}, shift } sub AUTOLOAD { print ref(shift) } package main; my $obj = NEW A; $obj->foo();
Reveal answer
Fill a bubble to check yourself
Keep practicing — related questions
- What will be the output ? package A; sub new { my $class = shift; return bless {}, $class; } package B; use...
- package A; sub new { return bless {}, shift; } sub DESTROY { print ref(shift); } package B; use base 'A'; s...
- What will be printed by the following code? package A; sub new { return bless {}; } sub foo { return 'A'; }...
- What gets printed? package A; sub new { my \$class = shift; my \$self = {}; \$self->init(); return bless \$...
- All three ways of calling new() are equivalent in the code below package A; sub new { my (\$class, \$param)...
- What will be the output ? my $val = bless {}, 'MyClass'; print ref($val);
- Which function you will use to create object in perl?
- For Object A to access method of object B, and the method has no modifier, Object A must be an instance of ...