Mega Code Archive

 

Categories / Perl / Class

 

A class is really just a package

#!/bin/perl package main; $name = "Tom"; my $birthyear = 1942; package nosy; print "$main::name.\n"; print "$main::birthyear?\n";