view release on metacpan or  search on metacpan

HaltingProblem.pm  view on Meta::CPAN

use strict;
use vars qw($VERSION);

$VERSION = "1.00";

sub new {
	my $class = shift;
	my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };
	die "No code provided for analysis" unless $self->{Machine};
	$self->{Input} = [ ] unless ref($self->{Input}) eq 'ARRAY';
	return bless $self, $class;
}

sub analyse {
	my $self = shift;
	eval { $self->{Machine}->(@{ $self->{Input} }); };
	return 1;
}

=head1 NAME