Perl日記

PerlとかRubyとかPHPとかPythonとか

packageについて2

packageとはクラスである。

#!/usr/bin/env perl
use strict;
use warnings;

package X;
sub new { bless {}, $_[0] }
sub x { print "x\n" }

package Y;
use base 'X';
sub y { print "y\n" }

package Z;
use base 'Y';
sub z { print "z\n" }


package main;

my $z = Z->new;

$z->x; #=> x
$z->y; #=> y
$z->z; #=> z