Commit | Line | Data |
4f6748f1 |
1 | package Catalyst::Build; |
2 | |
3 | use strict; |
4 | use Module::Build; |
5 | use base 'Module::Build'; |
6 | use Path::Class; |
7 | use File::Find 'find'; |
8 | |
b94ad1f4 |
9 | our @ignore = |
10 | qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README |
11 | _build blib lib script t/; |
12 | |
4f6748f1 |
13 | our $FAKE; |
b94ad1f4 |
14 | our $ignore = '^(' . join( '|', @ignore ) . ')$'; |
4f6748f1 |
15 | |
16 | =head1 NAME |
17 | |
18 | Catalyst::Build - Module::Build extension for Catalyst |
19 | |
20 | =head1 SYNOPSIS |
21 | |
22 | See L<Catalyst> |
23 | |
24 | =head1 DESCRIPTION |
25 | |
26 | L<Module::Build> extension for Catalyst. |
27 | |
28 | =head1 METHODS |
29 | |
30 | =item ACTION_install |
31 | |
32 | =cut |
33 | |
34 | sub ACTION_install { |
35 | my $self = shift; |
36 | $self->SUPER::ACTION_install; |
37 | $self->ACTION_install_extras; |
38 | } |
39 | |
40 | =item ACTION_fakeinstall |
41 | |
42 | =cut |
43 | |
44 | sub ACTION_fakeinstall { |
45 | my $self = shift; |
46 | $self->SUPER::ACTION_fakeinstall; |
47 | local $FAKE = 1; |
48 | $self->ACTION_install_extras; |
49 | } |
50 | |
51 | =item ACTION_install_extras |
52 | |
53 | =cut |
54 | |
55 | sub ACTION_install_extras { |
56 | my $self = shift; |
57 | my $prefix = $self->{properties}{destdir} || ''; |
58 | my $path = dir( |
59 | $prefix, |
60 | $self->{config}{installsitelib}, |
61 | split( '::', $self->{properties}{module_name} ) |
62 | ); |
63 | my @files = $self->_find_extras; |
64 | print "Installing extras to $path\n"; |
65 | for (@files) { |
66 | $FAKE |
67 | ? print "$_ -> $path/$_ (FAKE)\n" |
68 | : $self->copy_if_modified( $_, $path ); |
69 | } |
70 | } |
71 | |
72 | sub _find_extras { |
73 | my $self = shift; |
74 | my @all = glob '*'; |
75 | my @files; |
76 | for my $file (@all) { |
77 | next if $file =~ /$ignore/; |
78 | if ( -d $file ) { |
79 | find( |
80 | sub { |
81 | return if -d; |
82 | push @files, $File::Find::name; |
83 | }, |
84 | $file |
85 | ); |
86 | } |
87 | else { push @files, $file } |
88 | } |
89 | return @files; |
90 | } |
91 | |
92 | =back |
93 | |
94 | =head1 AUTHOR |
95 | |
96 | Sebastian Riedel, C<sri@oook.de> |
97 | |
98 | =head1 LICENSE |
99 | |
100 | This library is free software . You can redistribute it and/or modify it under |
101 | the same terms as perl itself. |
102 | |
103 | =cut |
104 | |
105 | 1; |