Select Code to Download

package BaseClass;

...
   return $column;
}
1;

package ChildClass;
use base qw(BaseClass);
...
   Invalid_characters => '[^\W-]',  
);
1;

#! /usr/bin/perl

...

use ChildClass;          
print "column: ", ChildClass->get_column;

> p $class<br>
ChildClass<br>
...
7  'Unknown'<br>
8  'Field_length'<br>
9  20