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

use strict;
use warnings;
use base qw(Test::FITesque::Fixture);

our $RECORDED = [];

sub one : Test : Plan(3) {
  my ($self, @args) = @_;
  push @$RECORDED, ['ONE', @args];
}

sub apple : Test {
  my ($self, @args) = @_;
  push @$RECORDED, ['APPLE', @args];
}

sub click_here : Test : Plan(2) {
  my ($self, @args) = @_;
  push @$RECORDED, ['CLICK_HERE', @args];
}

1;