1 package WWW
::Mechanize
::Script
::Plugin
;
6 our $VERSION = '0.001_002';
12 my ( $class, $default ) = @_;
14 my $self = bless( { %{$default} }, $class );
21 my ( $self, $check, $value_name ) = @_;
23 $value_name or return;
25 return $check->{check
}->{$value_name} // $self->{check
}->{$value_name};
28 sub get_check_value_as_bool
30 my ( $self, $check, $value_name ) = @_;
32 $value_name or return;
34 my $val = $check->{check
}->{$value_name} // $self->{check
}->{$value_name};
36 defined($val) or return;
37 ref($val) and return $val;
40 $val =~ m/(?:true|on|yes)/i and return 1;
48 my ( $self, $check ) = @_;
51 my @value_names = $self->check_value_names();
52 foreach my $value_name (@value_names)
54 my $cv = $self->get_check_value( $check, $value_name );
55 $cv and $ok = 1 and last;
62 sub check_value_names
{ ... }
64 sub check_response
{ ... }