Help for this page

Select Code to Download


  1. or download this
    sub new {
      my ($class, %args) = @_;
    ...
      }
      return $self;
    }
    
  2. or download this
    sub get {
      my $self = shift;
      $self->{_mech}->get(@_);
    }
    
  3. or download this
    for my $func (qw(get click ...)) {
      no strict 'refs';
    ...
        $self->{_mech}->$func(@_);
      };
    }
    
  4. or download this
    use Moose;
    
    has _mech => ( is => 'rw', handles => [ qw(get click ...) ] );