Event.pm: add a new_event helper to parse and construct an Event

Dependencies

• [2] EKHD4I44 Event: init structure and parse existing messages

Change contents

• edit in src/lib/Hydra/Event.pm at line 2
  [2.2266]→[2.2266:2267](∅→∅)
  −
• edit in src/lib/Hydra/Event.pm at line 7
  [2.2377]→[2.2377:2441](∅→∅)
  − our @ISA = qw(Exporter);

  − our @EXPORT = qw(

  − parse_payload

  − );
• edit in src/lib/Hydra/Event.pm at line 25
  [2.2933]

  [2.2933]
  + }

  +

  +

  + sub new_event {

  + my ($self, $channel_name, $payload) = @_;

  +

  + return bless {

  + "channel_name" => $channel_name,

  + "payload" => $payload,

  + "event" => parse_payload($channel_name, $payload),

  + }, $self;
• edit in t/Event.t at line 10
  [2.3144]

  [2.3144]
  + subtest "Event: new event" => sub {

  + my $event = Hydra::Event->new_event("build_started", "19");

  + is($event->{'payload'}, "19");

  + is($event->{'channel_name'}, "build_started");

  + is($event->{'event'}->{'build_id'}, 19);

  + };

  +