rjbs

# I can conceive of absolutely no reason why, in the following code, the @?pL
# variant would fail, but it does, in 8.008, 8.009, 10. -- rjbs, 2009-02-03
# It also fails in 5.12, but works in 5.14. -- rjbs, 2011-05

  use strict;
  use Test::More 'no_plan';

  like(f => qr/[a-z]/,        "a-z alone");
  like(f => qr/[\pL]/,        "pL alone");
  like(f => qr/@?[a-z]/,      "@? a-z");

rjbs

#!/usr/bin/perl
use strict;
use warnings;

=head1 AM I LOCAL PART OR NOT??

This is a very verbose and inefficient way to demonstrate how you can validate
an RFC 822 email address local part.  If a local part is not valid, it will
tell you why. -- rjbs, 2009-03-10

rjbs

use strict;
use YAML::XS;
use Data::Dumper;

my $YAML = <<'END_YAML';
---
"foo": "bar"
[ 1, 2, 3 ] : "foo"
END_YAML

rjbs

package Note;
use base 'Exporter';
our @EXPORT = qw(o);

use overload '/' => sub {
  my ($self, $other, $rev) = @_;
  die "wtf" if $rev;
  print "NOTE: " . (~ $other) . "\n";
};

rjbs

has is_finished => (
  lazy      => 1,
  default   => 1,
  init_arg  => undef,
  predicate => 'is_finished',
  reader    => 'mark_finished',
);

rjbs

# if ($obj->can('foo')) { ... }

# if ($obj->can('foo', $api_version)) { ... }

# if ($obj->can('foo', $api_version, $minor_version)) { ... }

use strict;
use Number::Nary qw(n_codec);

my $major = 10;

rjbs

# Grammar for L<> in Pod5

link-code       = "L<"
                  ( link-text "|" ) ?
                  (link-target)
                  ">"

link-text       = [^|]+

rjbs

// ==UserScript==
// @name          LP Forum Login
// @namespace     http://rjbs.manxome.org/
// @description   add submit handler to LP forum login to fix 1Password
// @include       http://www.liquidplanner.com/forum-login/
// @include       http://www.liquidplanner.com/process/Login
// ==/UserScript==
 
document.getElementById('password').value = 'xyzzy'; // except put your actual pw
updateStorableFields();

rjbs

15:39 <@rjbs> Last night, I dreamed I was a rapper.
15:39 <@rjbs> I was asked to come to the funeral of a fan I had never met and
  eulogize her.
15:40 <@arcanez> did you?
15:40 <@autarch> and you laid down some mad rhymez there?
15:41 <@rjbs> No, I did my best to do a good job.  I think I was part of a duo
  and my counterpart did not take things as seriously.
15:41 <@hanekomu> certainly repressed sexual desires or traumatic events, as
  Freud would say. :)
15:42  * rjbs watches the cornfield out the window.

rjbs

Security Hole

Readonly Collab

Last Updated

Feature API

Fork Button Missing