package My::Package::Derived;
use strict;
use warnings;
use My::Package;

our (@ISA) = qw[My::Package];

use constant SOME_DERIVED_VALUE => 15;

sub ANOTHER_DERIVED_VALUE() {
    int(rand(100)+1);
}

1;