davorg

javascript:(()=>{const title=document.querySelector('meta[property="mol:headline"]')?.content||document.querySelector("h1")?.textContent||document.title;const paragraphs=[...document.querySelectorAll("p.mol-para-with-font")].map(p=>p.textContent.trim()).filter(Boolean);const overlay=document.createElement("div");overlay.style.cssText="position:fixed;inset:0;z-index:999999;background:rgba(0,0,0,.55);display:flex;align-items:center;justify-content:center";const modal=document.createElement("div");modal.style.cssText="position:relative;max-width:760px;max-height:80vh;overflow:auto;background:white;color:#111;padding:28px;border-radius:8px;font:16px/1.55 system-ui,sans-serif;box-shadow:0 20px 60px rgba(0,0,0,.35)";const close=document.createElement("button");close.textContent="×";close.style.cssText="position:absolute;top:10px;right:14px;border:0;background:transparent;font-size:28px;cursor:pointer";close.onclick=()=>overlay.remove();const h1=document.createElement("h1");h1.textContent=title;modal.append(close,h1

davorg

class User {
  constructor({ isActive, role, isSuspended } = {}) {
    this.isActive = isActive;
    this.role = role;
    this.role = role;
    this.isSuspended = isSuspended;
  }

  canAccessAdmin() {
    return this.isActive && this.role === "admin" && !this.isSuspended;

davorg

#/usr/bin/perl

use strict;
use warnings;

use Imager::QRCode;

my $url = shift || 'https://perlhacks.com/';

my $qrcode = Imager::QRCode->new;

davorg

function cpanver {
  for mod in "$@"
  do
    perl -M$mod -E"say qq[$mod - \$$mod::VERSION]"
  done
}

davorg

#!/usr/bin/perl

use strict;
use warnings;

my $logs;

while (<>) {
  my ($date, $time, $type) = split;

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use DBI;

my $dbh = DBI->connect(
  "DBI:mysql:database=test",

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use MetaCPAN::Client;

my $author_name = shift
  or die "Usage: $0 CPAN_AUTHOR_ID\n";

davorg

use strict;
use warnings;

use Test::More;
use Plack::Test;
use Plack::Util;
use HTTP::Request::Common;

my $app = Plack::Util::load_psgi './app.psgi';

davorg

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

my $target = 92;
my @prices = (35, 46, 19, 7, 41, 27);

# If we have command-line arguments

davorg

#!/usr/bin/perl
#
# Perl Weekly Challenge #19 / Task #1
# 
# Write a script to display months from the year 1900 to 2019 where
# you find 5 weekends i.e. 5 Friday, 5 Saturday and 5 Sunday.

use strict;
use warnings;
use feature 'say';