Benign perl Download

Mojolicious-Plugin-Fondation-Auth 0.04

“Fondation authentication plugin — DBIx-backed login/logout”

Perl unlink file deletion callHTTP login path

SHA-25692094522d154cb39fc50f04fed6458f9389c76114ed35f7a8b9cb079233c14a1

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

Evidence

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

1package MyApp;
2use Mojo::Base 'Mojolicious';
3use File::Basename qw(dirname);
4use Mojo::File;
5
6sub startup {
7    my $self = shift;
8
9    my $test_dir = dirname(__FILE__);
10    my $data_dir = Mojo::File->new("$test_dir/. …

Perl unlink file deletion call MyApp.pm · lines 12–20

  my $dbfile = "$data_dir/test.db";
13
  # Remove stale test database
  unlink $dbfile if -e $dbfile;
16
  # Load via Fondation
  $self->plugin('Fondation' => {
      dependencies => [
          { 'Fo …

SQL CREATE TABLE syntax reference MyApp.pm · lines 48–54

3…       my ($storage, $dbh) = @_;
      $dbh->do(q{
          CREATE TABLE IF NOT EXISTS users (
              id         TEXT PRIMARY KEY,
              username   TEXT NOT NULL UNIQUE,
              password   TEXT NOT NULL,
              active     INTEGER NOT NULL DEFAULT 1 …

Perl LWP GET call MyApp.pm · lines 74–82

74:177… ───
75
76    my $r = $self->routes;
77
78    # Public route
79    $r->get('/public')->to(cb => sub { shift->render(text => 'public content') });
80
81    # Protected route — requires authentication
82    $r …

HTTP login path DBIx.pm · lines 90–94

11… orm ($self, $c) {
  my $template_file = $c->app->home->child('templates/auth/login.html.ep');
  if (-e $template_file) {
      my $mt      = Mojo::Template->new;
      my $content = $template_file->slurp; …

No evidence locations were recorded for this file. Raw result