File Coverage

lib/WWW/Mechanize/FormFiller/Value/Interactive.pm

Criterion	Covered	Total	%
statement	40	51	78.4
branch	0	2	0.0
condition			n/a
subroutine	11	12	91.6
pod	1	1	100.0
total	52	66	78.7

package WWW::Mechanize::FormFiller::Value::Interactive;
use base 'WWW::Mechanize::FormFiller::Value::Callback';
use strict;

use vars qw( $VERSION );
$VERSION = '0.12';

sub new {
  my ($class,$name) = @_;
  my $self = $class->SUPER::new($name, \&ask_value);

  $self;
};

sub ask_value {
  my ($self,$input) = @_;
  print $input->name,"> ","[",$input->value,"]";
  my $result = <>;
  chomp $result;
  $result = $input->value if $result eq "";
  $result;
};

1;


__END__