File Coverage

blib/lib/Verby/Action/Run/Unconditional.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#!/usr/bin/perl

package Verby::Action::Run::Unconditional;
use Moose::Role;

with qw/Verby::Action::Run/;

sub verify {
	my ( $self, $c ) = @_;
	$c->program_finished;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Verby::Action::Run::Unconditional - A default C<verify> method for
L<Verby::Action::Run> based actions.

=head1 SYNOPSIS

	pakcage MyAction;

	with qw/
		Verby::Action::Run
		Verby::Action::Run::Unconditional
	/;

	sub do {
		my ( $self, $c ) = @_;

		$c->create_poe_session( ... );
	}

	# no need to supply ->verify

=head1 DESCRIPTION

This convenience role makes it easy to write L<Verby::Action::Run> based
actions that return false from C<verify> until they have actually been run, at
which point they return true unconditionally.

=cut