#!/usr/bin/perl -s
use strict;
our ($m) ; ## monoblock

my $file=shift or die("usage: $0 file");
use Parse::DSLUtils (":ftemplate") ;
skimport();

if($m){ print SKMONO({ fun=>mkftemplateskel({ignore=>['SKMONO','SK']},$file),
                       filecontents=>scalar `cat $file`});
}
else { print SK({fun=>mkftemplateskel({ignore=>['SKMONO','SK']},$file),
                 file=>$file});
}

__DATA__

__SK__
#!/usr/bin/perl -s
use strict;
use Parse::DSLUtils (":ftemplate");

skimport('[% file %]');
#skimport();
[% fun %]

__SKMONO__
#!/usr/bin/perl -s
use strict;
use Parse::DSLUtils (":ftemplate");

skimport();
[% fun %]

\__DATA__

[% filecontents %]

\__END__

=head1 NAME

 - 

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 AUTHOR

=head1 SEE ALSO

Parse::DSLUtils::FTemplates module

Parse::DSLUtils

=cut

__END__

=head1 NAME

mkftemplateskel - generates a Perl processor from a template

=head1 SYNOPSIS

 mkftemplateskel file

=head1 DESCRIPTION

Builds a Perl program that processes a template.

=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

Parse::DSLUtils::FTemplates module

Parse::DSLUtils

=cut