package Dist::Joseki::DistType; use warnings; use strict; use Dist::Joseki::DistType::ModuleBuild; use Dist::Joseki::DistType::MakeMaker; our $VERSION = '0.20'; sub new { my $class = shift; return Dist::Joseki::DistType::ModuleBuild->new if -e "Build.PL"; return Dist::Joseki::DistType::MakeMaker->new if -e "Makefile.PL"; die "Can't determine dist type. Is this a perl distribution root dir?\n"; } 1; __END__ =head1 NAME Dist::Joseki::DistType - Distribution type class wrapper =head1 SYNOPSIS Dist::Joseki::DistType->new; =head1 DESCRIPTION None yet. This is an early release; fully functional, but undocumented. The next release will have more documentation. =head1 BUGS AND LIMITATIONS No bugs have been reported. Please report any bugs or feature requests through the web interface at L. =head1 INSTALLATION See perlmodinstall for information and options on installing Perl modules. =head1 AVAILABILITY The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit to find a CPAN site near you. Or see L. =head1 AUTHORS Marcel GrEnauer, C<< >> =head1 COPYRIGHT AND LICENSE Copyright 2007-2009 by the authors. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut