# Pragmas.
use strict;
use warnings;

# Modules.
use English qw(-no_match_vars);
use File::Object;
use Test::More 'tests' => 1;

# Test.
eval 'use Test::Pod 1.00';
if ($EVAL_ERROR) {
	plan 'skip_all' => 'Test::Pod 1.00 required for testing POD';
}
pod_file_ok(File::Object->new->up(2)->file('Fast.pm')->s);

# Pragmas.
use strict;
use warnings;

# Modules.
use English qw(-no_match_vars);
use File::Object;
use Test::More 'tests' => 1;

# Test.
SKIP: {
	if ($PERL_VERSION lt v5.8.0) {
		skip 'Perl version lesser then 5.8.0.', 1;
	}
	require Test::Pod;
	Test::Pod::pod_file_ok(File::Object->new->up(2)->file('Fast.pm')->s);
};

Fix for Perl lesser than 5.8.0.
Fix for Perl lesser than 5.8.0.
