Yet Another CPAN Grep

PawsX-Waiter ( P/PR/PRAJITH/PawsX-Waiter-0.03.tar.gz, PRAJITH, 2021; MetaCPAN )

PawsX-Waiter/lib/PawsX/Waiter.pm ( view source; MetaCPAN )

package PawsX::Waiter;

use strict;
use warnings;

use Moose::Role;
use JSON;
use Path::Tiny;
use PawsX::Waiter::Client;

our $VERSION = "0.03";

sub GetWaiter {
    my ( $self, $waiter ) = @_;

    m

_FILE__)->parent->child('Waiter/waiters.json');

    my $service = lc $self->service;
    my $definition    = $waiter_file->slurp();
    my $waiter_struct = JSON->new->utf8(1)->decode($definition);