File Coverage

blib/lib/Ask/Callback.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	4	0.0
total	31	36	86.1

use 5.008008;
use strict;
use warnings;

package Ask::Callback;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.015';

use Moo;
use namespace::autoclean;

with 'Ask::API';

has input_callback  => ( is => 'ro', required => 1 );
has output_callback => ( is => 'ro', required => 1 );

sub is_usable {
	my ( $self ) = @_;
	ref $self->output_callback eq 'CODE'
		and ref $self->input_callback eq 'CODE';
}

sub quality {
	return 0;
}

sub entry {
	my ( $self ) = @_;
	return $self->input_callback->();
}

sub info {
	my ( $self, %o ) = @_;
	return $self->output_callback->( $o{text} );
}

1;

__END__