lib/CrashTest/Plugin/CrashProcessor/Breakpad.pm
changeset 92 702e246e5c9f
parent 78 0ebef32c34af
child 122 8692800ec9ba
equal deleted inserted replaced
91:10a62da240f4 92:702e246e5c9f
    11 # You should have received a copy of the GNU General Public License
    11 # You should have received a copy of the GNU General Public License
    12 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
    12 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
    13 
    13 
    14 package CrashTest::Plugin::CrashProcessor::Breakpad;
    14 package CrashTest::Plugin::CrashProcessor::Breakpad;
    15 use Mojo::Base 'Mojolicious::Plugin';
    15 use Mojo::Base 'Mojolicious::Plugin';
       
    16 use Mojo::JSON::MaybeXS;
    16 use Mojo::JSON qw/decode_json/;
    17 use Mojo::JSON qw/decode_json/;
    17 use Mojo::Util qw/dumper/;
    18 use Mojo::Util qw/dumper/;
    18 use Mojolicious::Validator;
    19 use Mojolicious::Validator;
    19 
    20 
    20 has [ qw/app config dumper_config/ ];
    21 has [ qw/app config dumper_config/ ];
    23 sub register {
    24 sub register {
    24     my ($self, $app, $args) = @_;
    25     my ($self, $app, $args) = @_;
    25 
    26 
    26     $self->app($app);
    27     $self->app($app);
    27     $self->config($args->{config});
    28     $self->config($args->{config});
    28     $self->dumper_config($self->config->{Processor}->{Breakpad});
    29     $self->dumper_config($self->config->{Processor}->{CrashProcessor}->{Breakpad});
    29 
    30 
    30     $app->minion->add_task($self->task_name =>
    31     $app->minion->add_task($self->task_name =>
    31         sub {
    32         sub {
    32             my ($job, $uuid, $params, $files) = @_;
    33             my ($job, $uuid, $params, $files) = @_;
    33             #$job->app->log->debug(dumper $params);
    34             #$job->app->log->debug(dumper $params);