File Coverage

blib/lib/Ark.pm
Criterion Covered Total %
statement 43 52 82.6
branch 7 10 70.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 58 70 82.8


line stmt bran cond sub pod time code
1             package Ark;
2 61     61   4703201 use 5.008001;
  61         633  
3 61     61   22523 use Mouse;
  61         1312428  
  61         273  
4 61     61   23199 use Mouse::Exporter;
  61         134  
  61         239  
5              
6 61     61   33005 use Ark::Core;
  61         5739  
  61         12111  
7              
8             our $VERSION = '1.21';
9              
10             do {
11             my %EXPORTS;
12              
13             sub import {
14 184     184   115965 my ($class, @bases) = @_;
15              
16 184         459 my $caller = caller;
17              
18 184         37540 require utf8; import utf8;
  184         1607  
19              
20 184         812 my @super;
21 184 100       640 push @bases, 'Core' unless @bases;
22 184         420 for my $base (@bases) {
23 184         470 my $pkg;
24 184 100       664 if ($base =~ /^\+/) {
25 2         8 ($pkg = $base) =~ s/^\+//;
26             } else {
27 182         462 $pkg = "Ark::${base}";
28             }
29 184         363 push @super, $pkg;
30 184         887 Ark::Core->ensure_class_loaded($pkg);
31              
32 61     61   532 no strict 'refs';
  61         153  
  61         14550  
33 184         6275 for my $keyword (@{ $pkg . '::EXPORT' }) {
  184         827  
34 0         0 push @{ $EXPORTS{$caller} }, $keyword;
  0         0  
35 0         0 *{ $class . '::' . $keyword } = *{ $pkg . '::' . $keyword };
  0         0  
  0         0  
36             }
37              
38 184 100       1524 if (my $exporter = $pkg->can('EXPORT')) {
39 70         214 $exporter->($pkg, $caller);
40             }
41             }
42              
43 184         5266 Mouse::Meta::Class->initialize($caller);
44              
45 184         6218 my ($import, $unimport) = Mouse::Exporter->build_import_methods(
46             exporting_package => $caller,
47             also => "Mouse",
48             );
49              
50 184         43373 $caller->$import({ into => $caller });
51 184         54337 $caller->meta->superclasses(@super);
52              
53 184         12283 push @{ $EXPORTS{$class} }, $unimport;
  184         17441  
54             }
55              
56             sub unimport {
57 11     11   48 my $caller = caller;
58              
59 11 50       23 for my $item (@{ $EXPORTS{$caller} || [] }) {
  11         6437  
60 0 0         if (ref $item eq 'CODE') {
61 0           $caller->$item;
62             }
63             else {
64 61     61   489 no strict 'refs';
  61         132  
  61         5653  
65 0           delete ${ $caller . '::' }{ $item };
  0            
66             }
67             }
68             }
69             };
70              
71             1;
72             __END__
73              
74             =head1 NAME
75              
76             Ark - light weight Catalyst-ish web application framework
77              
78             =head1 SYNOPSIS
79              
80             use Ark;
81              
82             =head1 DESCRIPTION
83              
84             Ark is light weight Catalyst-ish web application framework.
85              
86             =head1 LICENSE
87              
88             Copyright (C) Daisuke Murase.
89              
90             This library is free software; you can redistribute it and/or modify
91             it under the same terms as Perl itself.
92              
93             =head1 AUTHOR
94              
95             Daisuke Murase <typester@cpan.org>
96              
97             =cut