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

use 5.008005;
use strict;
use warnings;
use Padre::Task ();

our $VERSION = '1.00';
our @ISA     = 'Padre::Task';

sub new {
	shift->SUPER::new(
		prepare => 0,
		run     => 0,
		finish  => 0,
		@_,
	);
}

sub prepare {
	$_[0]->{prepare}++;
	return 1;
}

sub run {
	my $self = shift;
	$self->{run}++;
	$self->{z} = $self->{x} + $self->{y};
	return 1;
}

sub finish {
	$_[0]->{finish}++;
	return 1;
}

1;

# Copyright 2008-2013 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.