The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Hopkins::Task;

use strict;

=head1 NAME

Hopkins::Task - task object

=head1 DESCRIPTION

Hopkins::Task represents a configured task that is available
for enqueuing.  it typically has a schedule associated with
it.

=cut

use base 'Class::Accessor::Fast';

use Hopkins::TaskOption;

__PACKAGE__->mk_accessors(qw(name class cmd queue stack schedule options chain run enabled onerror));

sub params
{
	my $self = shift;

	return { map { $_->value ? ($_->name => $_->value) : () } @{ $self->options } };
}

=back

=head1 AUTHOR

Mike Eldridge <diz@cpan.org>

=head1 LICENSE

=cut

1;