use 5.010;
use strict;
use warnings;
use Carp;

##</code><code>##

use Include 'header.pi'

##</code><code>##

use Include 'agent.pi'

##</code><code>##

package Include;

use 5.010;
use strict;
use warnings;
use Carp;

use Filter::Util::Call;

sub import 
{
	my (undef, @files) = @_;
	my (undef, $origin, $line) = caller;
	filter_add sub
	{
		filter_del();
		while (defined (my $file = shift(@files)))
		{
			$_ .= "\n# line 1 $file\n";
			local $/;
			undef $!;
			unless (open FH, "<", $file and $_ .= <FH> and !$!)
			{					
				carp "Can not include '$file':$!";
				return -1;
			}
			close FH;
		}
		++$line;
		$_ .= "\n# line $line $origin\n";
		return 1;
	};
}
1;