lib/WWW/Mechanize/Script/Plugin.pm

   1 package WWW::Mechanize::Script::Plugin;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '0.001_002';
   7
   8 use 5.014;
   9
  10 sub new
  11 {
  12     my ( $class, $default ) = @_;
  13
  14     my $self = bless( { %{$default} }, $class );
  15
  16     return $self;
  17 }
  18
  19 sub get_check_value
  20 {
  21     my ( $self, $check, $value_name ) = @_;
  22
  23     $value_name or return;
  24
  25     return $check->{check}->{$value_name} // $self->{check}->{$value_name};
  26 }
  27
  28 sub get_check_value_as_bool
  29 {
  30     my ( $self, $check, $value_name ) = @_;
  31
  32     $value_name or return;
  33
  34     my $val = $check->{check}->{$value_name} // $self->{check}->{$value_name};
  35
  36     defined($val) or return;
  37     ref($val) and return $val;
  38     if(_STRING($val))
  39     {
  40         $val =~ m/(?:true|on|yes)/i and return 1;
  41     }
  42
  43     return 0;
  44 }
  45
  46 sub can_check
  47 {
  48     my ( $self, $check ) = @_;
  49     my $ok = 0;
  50
  51     my @value_names = $self->check_value_names();
  52     foreach my $value_name (@value_names)
  53     {
  54         my $cv = $self->get_check_value( $check, $value_name );
  55         $cv and $ok = 1 and last;
  56     }
  57
  58     return $ok;
  59
  60 }
  61
  62 sub check_value_names { ... }
  63
  64 sub check_response { ... }
  65
  66 1;