Select Code to Download

package Library;

...
    my ($self, @keywords) = @_;
    return $self->{lib}->get_list(@keywords);
}

package Data::Container;

...
    $self->{line} = "" unless $self->{line};
    bless $self, $class;
}

package Data::File;

...
    };
    bless $self, $class;
}