view release on metacpan or  search on metacpan

lib/XS/Install/FrozenShit/ParseXS/Node.pm  view on Meta::CPAN

sub new {
    my ($class, $args) = @_;
    $args = {} unless defined $args;

    my XS::Install::FrozenShit::ParseXS::Node $self;
    if ($USING_FIELDS) {
        $self = fields::new($class);
        %$self = %$args;
    }
    else {
        $self = bless { %$args } => $class;
    }
    return $self;
}


# ======================================================================

package 
    XS::Install::FrozenShit::ParseXS::Node::Param;