File Coverage

blib/lib/Text/KDL/XS.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	42	42	100.0

package Text::KDL::XS;

use strict;
use warnings;

our $VERSION = '0.001';

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

use Text::KDL::XS::Parser;
use Text::KDL::XS::Value;
use Text::KDL::XS::Node;
use Text::KDL::XS::Document;

use Exporter 'import';
our @EXPORT_OK = qw(parse_kdl emit_kdl);

# parse_kdl($source, %opts) -> Text::KDL::XS::Document
#   $source : string | filehandle | coderef
#   %opts   : version => 'detect'|'1'|'2', emit_comments => 0|1
sub parse_kdl {
    my ($source, %opts) = @_;
    my $parser = Text::KDL::XS::Parser->new($source, %opts);
    return Text::KDL::XS::Document->_build_from_parser($parser);
}

# emit_kdl($tree, %opts) -> string
#   $tree : Text::KDL::XS::Document | Text::KDL::XS::Node | arrayref of Nodes
sub emit_kdl {
    my ($tree, %opts) = @_;
    require Text::KDL::XS::Emitter;
    return Text::KDL::XS::Emitter->_emit_tree($tree, %opts);
}

1;

__END__