sub new {
    my $class=shift;
    my %attribs = (
        # watever
    );
    bless sub {
        my $field=shift;
        return rand $1
          if $field =~ /^rand(\d+)$/i;
        # normal retrieval of attributes from %attribs here
    }, $class;
}