use strict;
use warnings;

package A;

{
    my $maxlengths = {
        tinytext => 100,
        longtext => 2000,
    };

    sub max_tiny_text { return $maxlengths->{tinytext}; }
    sub max_long_text { return $maxlengths->{longtext}; }
}

package B;

use base 'A';

print 'From B: ', A->max_tiny_text(), "\n";
print 'From B: ', A->max_long_text(), "\n";

package main;

print 'From main: ', B->max_tiny_text(), "\n";
print 'From main: ', B->max_long_text(), "\n";