File Coverage

blib/lib/Sys/Headers.pm

Criterion	Covered	Total	%
statement	28	48	58.3
branch	2	8	25.0
condition			n/a
subroutine	9	10	90.0
pod	0	1	0.0
total	39	67	58.2

package Sys::Headers;
#
# $Id: $
#

use 5.00503;
use strict;
use File::Spec::Functions qw[splitpath rel2abs];
use Cwd;
use Config;
use Carp;

use vars qw[$VERSION];

require lib;
import lib _get_headers_dir();

# do { my @r=(q$Revision: $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
$VERSION = '0.01';

sub import {
  shift;
  package main;
  require "$_.ph" foreach @_;
  package __PACKAGE__;
}

sub convert_headers {
  my $headers_dir = _get_headers_dir();
  croak "Must pass even number of arguments to convert_headers()." if @_ % 2;
  my %args = @_;
  foreach ( @{$args{includedirs}} ) {
    my $cwd = cwd;
    chdir $_;
    system "$Config{scriptdir}/h2ph -r -l -d $headers_dir *";
    chdir $cwd;
  }
  foreach ( @{$args{headers}} ) {
    my( $path, $file ) = (splitpath $_)[1,2];
    my $cwd  = cwd;
    chdir $path;
    system "$Config{scriptdir}/h2ph -a -l -d $headers_dir $file";
    chdir $cwd;
  }
}

sub _get_headers_dir {
  ( my $package = __PACKAGE__ . '.pm' ) =~ s!::!/!g;
  my $dir = rel2abs +(split /\./ => $INC{$package})[0];
  if ( -e $dir ) {
    if ( -d _ ) {
      return $dir;
    } else {
      croak "$dir exists and is not a directory\n";
    }
  } else {
    if ( mkdir $dir ) {
      return $dir;
    } else {
      croak "Couldn't mkdir( $dir ): $!\n";
    }
  }
}

1;
__END__