File Coverage

blib/lib/Module/Install/InstallDirs.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	23	24	95.8

# Copyright (c) 2003 Graham Barr . All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Module::Install::InstallDirs;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
use Config;

$VERSION = '0.02';
use strict;

sub installdirs {
  my $self = shift;
  my @dirs = ($Config{privlib},$Config{archlib});
  foreach my $module (@_) {
    (my $path = "$module.pm") =~ s,::,/,g;
    foreach my $dir (@dirs) {
      if (-f "$dir/$path") {
	$self->makemaker_args(INSTALLDIRS => 'perl');
	return;
      }
    }
  }
}

1;

__END__