Select Code to Download

package File_Entry { (has 3 routines, constructor & accessors):
sub new([name,[rating]]);
...

package File_Entries { 
    use fields qw(__entries);

our $pckg_vars = __PACKAGE__;
    sub new () {
...
sub ratings ([index,[rating])    #r/w accessor
sub filenames([index])           #r/o accessor
sub _add_entry(\$)               #adds entry of type File_Entry

package Class2;
our $pckg_vars = __PACKAGE__;
...
   return $s;
....}
<etc>

{
    package Entry_Display_In_Wins;
...
    ...
    $s->{$pckg_vars}->{'__GUI_Glue'}= GUI_Glue->new(...);
    return $s;