File Coverage

blib/lib/Parse/Liberty.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Parse::Liberty;

use strict;
use warnings;

use Exporter 'import';
our $VERSION    = 0.12;

use liberty;
use Parse::Liberty::Constants qw($e $e2 %errors);
use Parse::Liberty::Group;


sub new {
    my $class = shift;
    my %options = @_;

    ## untilde path
    require File::Glob;
    $options{'file'} = File::Glob::bsd_glob($options{'file'});

    ## set debug mode
    liberty::si2drPISetDebugMode(\$e) if $options{'verbose'};

    ## initialize
    liberty::si2drPIInit(\$e);
    printf STDERR "* PIInit: %s\n", $errors{$e} if $options{'verbose'};

    ## read liberty file
    printf STDERR "* Reading %s...\n", $options{'file'} if $options{'verbose'};
    liberty::si2drReadLibertyFile($options{'file'}, \$e);
    printf STDERR "* ReadLibertyFile: %s\n", $errors{$e} if $options{'verbose'};
    die "\n" if $errors{$e} ne 'NO ERROR';

    my $self = {
        file    => $options{'file'},
        indent  => $options{'indent'}   || 2,
        verbose => $options{'verbose'}  || 0,
    };
    bless $self, $class;
    return $self;
}


sub methods {
    my $self = shift;
    return (join "\n", qw(library write_library))."\n";
}

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

sub library {
    my $self = shift;

    ## get root group
    my $si2_groups = liberty::si2drPIGetGroups(\$e);
    my $si2_group = liberty::si2drIterNextGroup($si2_groups, \$e);
    liberty::si2drIterQuit($si2_groups, \$e);
    my $group = new Parse::Liberty::Group (
        parser      => $self,
        parent      => $self,
        si2_object  => $si2_group,
        depth       => 0,
    );

    return $group;
}


sub write_library {
    my $self = shift;
    my $file = shift;

    my $si2_group = $self->library->{si2_object};

    printf "* Writing %s...\n", $file if $self->{verbose};
    liberty::si2drWriteLibertyFile($file, $si2_group, \$e);
    printf "* WriteLibertyFile: %s\n", $errors{$e} if $self->{verbose};

    return 1;
}


1;
__END__