GETTY / App-DuckPAN-0.101 / lib / App / DuckPAN / DDG.pm 

            

              
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
71
72
73
74
75
76
77
78
79
80
81
—
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

              
package App::DuckPAN::DDG;
BEGIN {
  $App::DuckPAN::DDG::AUTHORITY = 'cpan:DDG';
}
{
  $App::DuckPAN::DDG::VERSION = '0.101';
}
# ABSTRACT: DDG related functionality of duckpan
use Moo;
with 'App::DuckPAN::HasApp';
use Module::Pluggable::Object;
use Class::Load ':all';
sub get_dukgo_user_pass {
        my ( $self ) = @_;
        my $config = $self->app->perl->get_dzil_config;
        unless (defined $config->{'%DUKGO'}) {
                shift->app->print_text(
                        "[ERROR] No configuration found for your https://dukgo.com/ username and password, please use: 'dzil setup' first!",
                );
                exit 1;
        }
        return $config->{'%DUKGO'}->{username}, $config->{'%DUKGO'}->{password};
}
sub get_blocks_from_current_dir {
        my ( $self, @args ) = @_;
        unless ($self->app->get_local_ddg_version) {
                print "\n[ERROR] You need to have the DDG distribution installed\n";
                print "\nTo get the installation command, please run: duckpan check\n\n";
                exit 1;
        }
        my $finder = Module::Pluggable::Object->new(
                search_path => ['lib/DDG/Spice','lib/DDG/Goodie','lib/DDG/Fathead','lib/DDG/Longtail'],
        );
        if (scalar @args == 0) {
                my @plugins = $finder->plugins;
                push @args, sort { $a cmp $b } @plugins;
        } else {
                @args = map { $_ = "lib::DDG::$_" unless m,^lib(::|/)DDG,; $_; } @args;
        }
        @args = map {
                $_ =~ s!/!::!g;
                my @parts = split('::',$_);
                shift @parts;
                join('::',@parts);
        } @args;
        unless (@args) {
                print "\n[ERROR] No DDG::Goodie::*, DDG::Spice::*, DDG::Fathead::* or DDG::Longtail::* packages found\n";
                print "\nHint: You must be in the root of your repository so that this works.\n\n";
                exit 1;
        }
        require lib;
        lib->import('lib');
        print "\nUsing the following DDG plugins:\n\n";
        for (@args) {
                load_class($_);
                print " - ".$_;
                print " (".$_->triggers_block_type.")\n";
        }
        my %blocks_plugins;
        for (@args) {
                unless ($blocks_plugins{$_->triggers_block_type}) {
                        $blocks_plugins{$_->triggers_block_type} = [];
                }
                push @{$blocks_plugins{$_->triggers_block_type}}, $_;
        }
        my @blocks;
        for (keys %blocks_plugins) {
                my $block_class = 'DDG::Block::'.$_;
                load_class($block_class);
                push @blocks, $block_class->new( plugins => $blocks_plugins{$_}, return_one => 0 );
        }
        load_class('DDG::Request');
        return \@blocks;
}
1;
__END__
=pod
=head1 NAME
App::DuckPAN::DDG - DDG related functionality of duckpan
=head1 VERSION
version 0.101
=head1 AUTHOR
Torsten Raudssus <torsten@raudss.us> L<https://raudss.us/>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by DuckDuckGo, Inc. L<http://duckduckgo.com/>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut