./TravEpi/SimpleRulesBase/DynamicText.pm

• package MGH_Biostat::TravEpi::SimpleRulesBase::DynamicText
  • newdt
  • new
• EOF

package MGH_Biostat::TravEpi::SimpleRulesBase::DynamicText;
use Modern::Perl '2012';

use parent qw(Exporter);
our @EXPORT = qw(newdt);

sub newdt {
    return MGH_Biostat::TravEpi::SimpleRulesBase::DynamicText->new(@_);
}

sub new {
    my $class = shift;
    my ( $type, $value, $context ) = @_;
    my $self = {
        'type'    => $type,
        'value'   => $value,
        'context' => $context // {},
    };

    return bless $self, $class;
}

1;