Cor — A minimal OO proposal for the Perl core
This is version 0.10 of this document.
#!/usr/bin/env perl | |
use Test::Most; | |
use Veure::Script; # strict, warnings, postderef, sigs, and more | |
use re 'eval'; # needed for (??{}) in the regex | |
# the (??{}) construct will execute code and consider the result of that | |
# to be a regex to match on. | |
my $yyyy_mm_dd = qr/ | |
^ | |
# any four digit year |
I hereby claim:
To claim this, I am signing this object:
# Turns out this doesn't work because OrderedHash | |
# is sorted, not ordered | |
class Cache::LRU { | |
use OrderedHash; | |
has %.cache = {} does OrderedHash; | |
has UInt $.max_size = 20; | |
method get($key) { | |
return %.cache{$key}; | |
} |
#!/usr/bin/env perl | |
# This program constantly prints the time in GCT (Galactic Coordinated Time) | |
# as used in the MMORPG Tau Station (https://taustation.space/) | |
# Obviously, we use something a bit more sophisticated than this :) | |
use strict; | |
use warnings; | |
use Time::HiRes 'sleep'; | |
$|++; # unbuffer STDOUT |
#!/bin/bash | |
# vim: filetype=sh | |
set -e # exit if any command fails | |
prog=$(basename $0) | |
branch=$(git rev-parse --abbrev-ref HEAD) | |
need_to_stash=$(git status --porcelain -uno) |
#!/usr/bin/env perl | |
use 5.18.0; | |
use warnings; | |
use autodie ":all"; | |
use LWP::UserAgent; | |
use HTTP::Request::Common; | |
use HTML::TokeParser::Simple; | |
my $login_url = 'https://www.livejournal.com/login.bml?ret=1'; |
package Ovids::Debugger; | |
# vim: syntax=perl | |
=head1 NAME | |
.perldb - Customize your Perl debugger | |
=head1 USAGE |
#!/usr/bin/env perl | |
use Modern::Perl; | |
use Net::Twitter; | |
use Config::Tiny; | |
use File::HomeDir; | |
use utf8::all; | |
use Text::Wrap; | |
use Term::ANSIColor; | |
use autodie ':all'; |
package main | |
import ( | |
"io" | |
"os" | |
"strings" | |
) | |
type rot13Reader struct { | |
reader io.Reader |