###################################################

# Examples of provides

###################################################

package Test;

package TMP::tmp;

###################################################

# Examples of requires

###################################################

###################################################

# Simple 'use'

use Test::Simple;

###################################################

# Simple 'use' with whitespaces at the beginning

    use Use::WhiteSpace;

###################################################

# 'use' with version

use v5.6.1;

use version 0.77;

# TODO

use Meow v1.2.3;

###################################################

# 'use' with parameter 

# TODO

# The extra parameters are found only for 'base' and 'parent'

use overload

    + = \+

use POE qw(System::Wheel Client::HTTP);

use Any::Moose 'Role';

use aliased "Some::Crazy::Module";

use aliased "Another::Crazy::Module" => "ShorterName";

use Moose;

# Is not find yet

with 'Foo::Bar'; # => { -version => 0.01 },

     'Bar::Baz'; # => { -version => 0.03 };

use Test::Requires qw(TestRequiresArray1 TestRequiresArray2);

use Test::Requires {TestRequiresHash1 => 0.1, TestRequiresHash2 => 0.2};

###################################################

# 'use' with 'base' or 'parent

use base 'Exporter';

use parent qw(DBI);

# TODO

# It is not parse correctly yet, because it does not remove anything from list

# of found modules.

# use parent 'NotRequiredByParent1';

# use parent -norequire, 'NotRequiredByParent1', 'NotRequiredByParent2';

#

# Do not process 'no' yet

# no File::Path;

#

# use if $[ < 5.8.8, POE => qw(Client::TCP Server::TCP)

###################################################

# 'require'

require File::Copy ();

require Carp;

###################################################

# 'require' with whitespaces at the beginning

# TODO

    require Require::WhiteSpace;

# TODO

# Does not find modules defined at 'eval'

eval{ require File::Spec; 1} or die;

1