{
    no strict qw(refs);
    foreach my $method ( keys %{ $self->{'data'} } ) {
        *{$method} = sub {
            my ( $self ) = @_;
            return $self->{'data'}->{$method};
        };
    }
}