NAME

MarpaX::Languages::M4 - M4 pre-processor

VERSION

version 0.009

SYNOPSIS

use POSIX qw/EXIT_SUCCESS/;
use MarpaX::Languages::M4;
use Log::Any;
use Log::Any::Adapter;
use Log::Any::Adapter::Callback;

Log::Any::Adapter->set('Callback', min_level => 'trace', logging_cb => \&_logging_cb);

my $m4 = MarpaX::Languages::M4->new_with_options();
$m4->parse('debugmode(`V\')m4wrap(`test\')');
print "Value: " . $m4->value . "\n";
print "Rc: " . $m4->rc . "\n";

sub _logging_cb {
    my ($method, $self, $format, @params) = @_;
    printf STDERR  "$format\n", @args;
}

DESCRIPTION

This package is an implementation of M4.

SEE ALSO

Marpa::R2, Moops, M4 POSIX, M4 GNU

AUTHOR

Jean-Damien Durand <jeandamiendurand@free.fr>

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Jean-Damien Durand.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.