view release on metacpan or  search on metacpan

lib/Astro/XSPEC/Model/Parse.pm  view on Meta::CPAN

    );

sub new
{

    my $class = shift;

    my %par = validate( @_,
                        {
                            model => { type => HASHREF,
                                       callbacks => { 'handler' =>
                                                          sub {
                                                              pop @_;
                                                              validate( @_, \%model_handler )
                                                      }
                                       },
                                       default => {},
                            },
                            par   => { type => CODEREF, optional => 1 },
                            args  => { type => HASHREF, optional => 1 },
                            norm  => { type => SCALAR, default => 0 }, }