Lines Matching refs:opts
83 my %opts = @_;
95 debug => $opts{debug},
99 $instance->set_version($opts{version});
100 $instance->load($opts{from}) if defined($opts{from});
206 my %opts = @_;
208 $self->write($self->{filename}, %opts);
227 my %opts = @_;
230 croak "The 'sort' option is not allowed" if $opts{sort};
235 foreach ($self->items(%opts, sort => by_number())) {
269 my %opts = @_;
271 my $comparator = $opts{sort};
272 my $filter = $opts{filter} // sub { 1; };
792 my %opts = @_;
794 croak "No argument given" unless %opts;
797 if ($opts{from}) {
798 my @a = split /\s+/, $opts{from};
800 croak "Badly formatted ordinals string: $opts{from}"
814 %opts = ( source => $opts{source},
825 if ($opts{name} && $opts{version} && defined $opts{exists} && $opts{type}
826 && ref($opts{platforms} // {}) eq 'HASH'
827 && ref($opts{features} // []) eq 'ARRAY') {
828 my $version = $opts{version};
831 $instance = { source => $opts{source},
832 name => $opts{name},
833 type => $opts{type},
834 number => $opts{number},
835 intnum => $opts{intnum},
837 exists => !!$opts{exists},
838 platforms => { %{$opts{platforms} // {}} },
839 features => [ sort @{$opts{features} // []} ] };
842 join("", map { " $_\t=> ".$opts{$_}."\n" } sort keys %opts);
