Yet Another CPAN Grep

Net-Versa-Director ( A/AB/ABRAXXA/Net-Versa-Director-0.004000.tar.gz, ABRAXXA, 2025; MetaCPAN )

Net-Versa-Director/lib/Net/Versa/Director.pm ( view source; MetaCPAN )

;
};

has '+persistent_headers' => (
    default => sub {
        return { Accept => 'application/json' };
    },
);

sub _error_handler ($self, $res) {
    if (ref $res->data eq 'HASH') {
        if

Net-Versa-Director ( A/AB/ABRAXXA/Net-Versa-Director-0.004000.tar.gz, ABRAXXA, 2025; MetaCPAN )

Net-Versa-Director/lib/Net/Versa/Director/Serializer.pm ( view source; MetaCPAN )

/json application/vnd.yang.data+json}],
    default => sub { 'application/json' },
);

our %modules = (
    'application/json' => {
        module => 'JSON',
    },
    'application/vnd.yang.data+json

' => {
        module => 'JSON',
    },
);

has '+serializer' => (
    default => \&_set_serializer,
);

sub _set_serializer ($self) {
    return unless $modules{$self->type};

    my $module = $modul