1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
package Mojolicious::Plugin::AssetPack::Pipe::Combine;
use Mojo::Base 'Mojolicious::Plugin::AssetPack::Pipe';
use Mojolicious::Plugin::AssetPack::Util qw(checksum diag DEBUG);
has enabled => sub { shift->assetpack->minify };
sub process {
my ($self, $assets) = @_;
my $combine = Mojo::Collection->new;
my @other;
return unless $self->enabled;
for my $asset (@$assets) {
if ($asset->isa('Mojolicious::Plugin::AssetPack::Asset::Null')) {
next;
}
elsif (grep { $asset->format eq $_ } qw(css js)) {
push @$combine, $asset;
}
else {
push @other, $asset;
}
}
# preserve assets such as images and font files
@$assets = @other;
if (@$combine) {
my $checksum = checksum $combine->map('checksum')->join(':');
my $content = $combine->map('content')->map(sub { /\n$/ ? $_ : "$_\n" })->join;
diag 'Combining assets into "%s" with checksum %s.', $self->topic, $checksum if DEBUG;
push @$assets,
Mojolicious::Plugin::AssetPack::Asset->new(url => $self->topic)->checksum($checksum)->minified(1)
->content($content);
}
}
1;
=encoding utf8
=head1 NAME
Mojolicious::Plugin::AssetPack::Pipe::Combine - Combine multiple assets to one
=head1 DESCRIPTION
L<Mojolicious::Plugin::AssetPack::Pipe::Combine> will take a list of
assets and turn them into a single asset.
=head1 ATTRIBUTES
$bool = $self->enabled;
Set this to false to disable combining assets into a single file. The default
value will be L<Mojolicious::Plugin::AssetPack/minify>.
=head1 METHODS
=head2 process
See L<Mojolicious::Plugin::AssetPack::Pipe/process>.
=head1 SEE ALSO
L<Mojolicious::Plugin::AssetPack>.
=cut
|
