view release on metacpan or  search on metacpan

lib/App/EvalServerAdvanced/ConstantCalc.pm  view on Meta::CPAN

use integer;
no warnings 'experimental::bitwise';
use feature 'bitwise';

use parent qw/Parser::MGC/;
use Function::Parameters;

method new($class: %args) {
  my $consts = delete $args{consts};

  my $self = $class->SUPER::new(%args);

  $self->{_private}{consts} = $consts;

  return $self;
}

method consts() {
  return $self->{_private}{consts};
}