File Coverage

blib/lib/CPAN/Packager/DualLivedList.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 0 1 0.0
total 4 8 50.0


line stmt bran cond sub pod time code
1             package CPAN::Packager::DualLivedList;
2 3     3   17 use Mouse;
  3         8  
  3         22  
3              
4             # FIXME
5             # copied from Bundle::duallived
6             # we need to implement Module::DualLivedList
7             my $DUAL_LIVED_LIST = {
8             "autodie" => 1,
9             "base" => 1,
10             "bigint" => 1,
11             "constant" => 1,
12             "encoding" => 1,
13             "encoding::warnings" => 1,
14             "if" => 1,
15             "lib" => 1,
16             "parent" => 1,
17             "threads" => 1,
18             "threads::shared" => 1,
19             "version" => 1,
20             "Test::Harness" => 1,
21             "Archive::Extract" => 1,
22             "Archive::Tar" => 1,
23             "Attribute::Handlers" => 1,
24             "AutoLoader" => 1,
25             "B::Debug" => 1,
26             "B::Lint" => 1,
27             "CGI" => 1,
28             "CPAN" => 1,
29             "CPANPLUS" => 1,
30             "CPANPLUS::Dist::Build" => 1,
31             "Class::ISA" => 1,
32             "Compress::Raw::Bzip2" => 1,
33             "Compress::Raw::Zlib" => 1,
34             "Compress::Zlib" => 1,
35             "Cwd" => 1,
36             "DB_File" => 1,
37             "Data::Dumper" => 1,
38             "Devel::InnerPackage" => 1,
39             "Devel::PPPort" => 1,
40             "Digest" => 1,
41             "Digest::MD5" => 1,
42             "Digest::SHA" => 1,
43             "Exporter" => 1,
44             "ExtUtils::CBuilder" => 1,
45             "ExtUtils::Command" => 1,
46             "ExtUtils::MakeMaker" => 1,
47             "ExtUtils::Constant::Base" => 1,
48             "ExtUtils::Install" => 1,
49             "ExtUtils::Manifest" => 1,
50             "ExtUtils::ParseXS" => 1,
51             "File::Fetch" => 1,
52             "File::Path" => 1,
53             "File::Temp" => 1,
54             "Text::Balanced" => 1,
55             "Filter::Simple" => 1,
56             "Filter::Util::Call" => 1,
57             "Getopt::Long" => 1,
58             "I18N::LangTags" => 1,
59             "IO" => 1,
60             "IO::Compress::Base" => 1,
61             "IO::Zlib" => 1,
62             "IPC::Cmd" => 1,
63             "IPC::Msg" => 1,
64             "List::Util" => 1,
65             "Locale::Constants" => 1,
66             "Locale::Maketext" => 1,
67             "Locale::Maketext::Simple" => 1,
68             "Log::Message" => 1,
69             "MIME::Base64" => 1,
70             "Math::BigInt" => 1,
71             "Math::BigInt::FastCalc" => 1,
72             "Math::BigRat" => 1,
73             "Math::Complex" => 1,
74             "Memoize" => 1,
75             "Module::Build" => 1,
76             "Module::CoreList" => 1,
77             "Module::Load" => 1,
78             "Module::Load::Conditional" => 1,
79             "Module::Loaded" => 1,
80             "Module::Pluggable" => 1,
81             "NEXT" => 1,
82             "Net::Cmd" => 1,
83             "Package::Constants" => 1,
84             "Params::Check" => 1,
85             "Parse::CPAN::Meta" => 1,
86             "PerlIO::via::QuotedPrint" => 1,
87             "Pod::Checker" => 1,
88             "Pod::Escapes" => 1,
89             "Pod::LaTeX" => 1,
90             "Pod::Man" => 1,
91             "Pod::Perldoc" => 1,
92             "Pod::Plainer" => 1,
93             "Pod::Simple" => 1,
94             "Pod::Usage" => 1,
95             "Safe" => 1,
96             "SelfLoader" => 1,
97             "Shell" => 1,
98             "Storable" => 1,
99             "Switch" => 1,
100             "Sys::Syslog" => 1,
101             "Term::ANSIColor" => 1,
102             "Term::Cap" => 1,
103             "Term::UI" => 1,
104             "Test" => 1,
105             "Test::Simple" => 1,
106             "Text::Balanced" => 1,
107             "Text::ParseWords" => 1,
108             "Text::Soundex" => 1,
109             "Text::Tabs" => 1,
110             "Thread::Queue" => 1,
111             "Thread::Semaphore" => 1,
112             "Tie::File" => 1,
113             "Tie::RefHash" => 1,
114             "Time::HiRes" => 1,
115             "Time::Local" => 1,
116             "Time::Piece" => 1,
117             "Unicode::Collate" => 1,
118             "Unicode::Normalize" => 1,
119             "Win32" => 1,
120             "Win32API::File" => 1,
121             "XSLoader" => 1,
122             };
123              
124             sub is_duallived_module {
125 0     0 0   my ( $self, $module_name ) = @_;
126 0           return exists $DUAL_LIVED_LIST->{$module_name};
127             }
128              
129             1;