Benign perl Download

Mojolicious-Plugin-Fondation-Authorization 0.02

“Authorization plugin — grants loading and check_perm/check_group helpers”

Perl File::Find recursive walkHTTP login path

SHA-2568866a602e503c55c8ad7e9827e02c2015f60434962b1fb9e3cbaa5c0ba700e02

URLhttps://cpan.metacpan.org/authors/id/D/DA/DAB/Mojolicious-Plugin-Fondation-Authorization-0.02.tar.gz

Evidence

Perl sigil variable declaration MyApp.pm · lines 1–11

1package MyApp;
2use Mojo::Base 'Mojolicious', -signatures;
3use File::Temp 'tempdir';
4
5sub startup {
6    my $self = shift;
7
8    my $tmpdir = tempdir(CLEANUP => 1);
9    my $dbfile = "$tmpdir/test.db";
10
11    # Fondation resolves all dependencies from Authorization …

Perl File::Find recursive walk MyApp.pm · lines 78–81

14… rs_ug->count) {
      my $alice   = $sync->resultset('User')->find({ username => 'alice' });
      my $bob     = $sync->resultset('User')->find({ username => 'bob' });
      my $admins  = $syn …

Perl LWP GET call MyApp.pm · lines 100–108

136… �─────────
101
  my $r = $self->routes;
103
  $r->get('/has-perm/:perm')->to(cb => sub ($c) {
      my $perm = $c->param('perm');
      $c->render(json => {
          has_perm  => $c->check_perm($perm)  ? \1 : \0,
          has_group => $c->ch …

HTTP login path 01-grants.t · lines 31–36

20… lice' => sub {
  $t->ua->cookie_jar->empty;
33
  $t->post_ok('/login' => form => { username => 'alice', password => 'pass' })
    ->status_is(302, 'Login redirects')
    ->header_like(Location …

HTTP login path 03-route-conditions.t · lines 1–21

1#!/usr/bin/env perl
2use Mojo::Base -strict;
3use Test::More;
4use Test::Mojo;
5use FindBin;
⋯11 lines
17    my ($username) = @_;
18    $t->ua->cookie_jar->empty;
19    $t->post_ok('/login' => form => { username => $username, password => 'pass' })
20      ->status_is(302, "$username login redirects")
21      ->header_l …

No evidence locations were recorded for this file. Raw result