Lines Matching refs:opts
581 =item C<$checker-E<gt>poderror( {%opts}, @args )>
605 # Invoked as $self->poderror( @args ), or $self->poderror( {%opts}, @args )
608 my %opts = (ref $_[0]) ? %{shift()} : ();
611 chomp( my $msg = ($opts{-msg} || "")."@_" );
612 my $line = (exists $opts{-line}) ? " at line $opts{-line}" : "";
613 my $file = (exists $opts{-file}) ? " in file $opts{-file}" : "";
614 unless (exists $opts{-severity}) {
616 $opts{-severity} = $1 if ( $msg =~ s/^\**\s*([A-Z]{3,}):\s+// );
618 my $severity = (exists $opts{-severity}) ? "*** $opts{-severity}: " : "";
622 if(!%opts || ($opts{-severity} && $opts{-severity} eq 'ERROR'));
624 if(!%opts || ($opts{-severity} && $opts{-severity} eq 'WARNING'));
627 if($self->{-warnings} || !%opts || $opts{-severity} ne 'WARNING');