File Coverage

inc/My/ConfigH.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	4	0.0
condition	0	2	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	47	34.0

package My::ConfigH;

use strict;
use warnings;
use Carp qw( croak );
use File::Basename qw( basename );

sub new
{
  my($class, $filename) = @_;

  $filename ||= "include/ffi_platypus_config.h";

  my $self = bless {
    content  => '',
    filename => $filename,
  }, $class;

  $self;
}

sub define_var
{
  my($self, $key, $value) = @_;
  croak "value for $key is not defined" unless defined $value;
  $self->{content} .= "#define $key $value\n";
}

sub write_config_h
{
  my($self) = @_;

  my $once = uc basename($self->{filename});
  $once =~ s/\./_/g;

  my $fh;
  my $fn = $self->{filename};
  open $fh, '>', $fn or die "unable to write to $fn $!";
  print $fh "#ifndef $once\n";
  print $fh "#define $once\n\n";
  print $fh "@{[ $self->{content} ]}\n";
  print $fh "#endif\n";
  close $fh;
}

1;