#!/usr/bin/perl

use strict;
use warnings;
use TAP::Parser;
use Tester;

Tester::main();

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use TAP::Parser;
package Tester;
our $one = 1;

sub main {
	my @test_files = qw( file1 file2 );
	for my $file ( @test_files ) { 
		my %args = (
    			source => $file,
    			test_args => [ arg1 => 'arg1' ], # Not used for ilustration only
  		);
  		my $parser = TAP::Parser->new( \%args );
  		while ( my $result = $parser->next ) {
    			print $result->as_string,  "\n";
  		}
	}
}

sub get_one {
	return $one;
}
sub set_one {
	my $class = shift;
	$one = shift;
}

1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
use Tester;

Tester->set_one(1);
my $one = Tester->get_one();
Tester->set_one(2); # Try to set this for the next test
Test::More::is( $one, 1, 'One equals to one' );

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Test::More 'no_plan';
use Tester;

Tester->set_one(1);
my $one = Tester->get_one();
Tester->set_one(2); # Try to set this for the next test
Test::More::is( $one, 1, 'One equals to one' );