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