Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

objects as closures

by Excalibor (Monk)
on Jul 07, 2003 at 15:07 UTC ( #271987=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use strict;
    use warnings;
          die "Method '$_[0]' unknown to class Person";
  2. or download this
    # creating object
    my $john = Person;
    print "It's ", $john->('age')->(), " years-old already!!!\n";
    print $john->('address')->();
  3. or download this
    I'm John and I am 23 years-old, but my birthday is in just 2 seconds
    [two seconds pass...]
    Uncaught exception from user code:
            Method 'address' unknown to class Person at line 18
            main::__ANON__('address') called at line 40

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://271987]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2016-10-23 00:32 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (299 votes). Check out past polls.