Skip to content

Instantly share code, notes, and snippets.

View dolmen's full-sized avatar
😁
Happy!

Olivier Mengué dolmen

😁
Happy!
View GitHub Profile
@dolmen
dolmen / PAUSE-clients.md
Last active August 29, 2015 14:14
List of PAUSE API clients

List of users of the PAUSE (pause.perl.org) API from CPAN

http://grep.cpan.me/?q=pause.perl.org

  • CPAN::Upload
  • App::PAUSE::Comaint
  • App::PAUSE::cleanup
  • WWW::PAUSE::CleanUpHomeDir
  • CPAN::Testers::WWW::Admin
  • CPAN::Testers::WWW::Preferences
@dolmen
dolmen / json2perl.pl
Created February 26, 2015 17:54
Convert JSON data to Perl code
#!/usr/bin/env perl
use JSON::XS;
use Data::Dumper;
binmode(STDIN, ':raw');
my $json = do { local $/; <STDIN> };
my $data = decode_json($json);
$Data::Dumper::Indent = 0;
@dolmen
dolmen / Time-Piece-deps.md
Created April 14, 2015 13:05
Reverse dependencies for Time::Piece using the MetaCPAN API
@dolmen
dolmen / perlqa2015.md
Last active August 29, 2015 14:19
DOLMEN @ #perlqa2015

Day -1 (Wednesday)

In the plane to Berlin, started a new Perl module: Devel::JSON. Tried various implementations (using overload, PerlIO::via...), but nothing worked.

In the afternoon, had a good bike ride around Berlin with Salve.

Good evening meeting the qah crowd again.

Day 0 (Thursday)

@dolmen
dolmen / Mock.pm
Created April 24, 2015 13:35
Mocking Data::UUID methods
package Data::UUID::Mock;
use Data::UUID;
sub Data::UUID () {
'Data::UUID::Mock'
}
# Override Data::UUID methods below
1;
@dolmen
dolmen / override.pl
Created June 4, 2015 09:13
override
#!/usr/bin/env perl
# override keyword similar to Java's @override annotation
use 5.010;
use strict;
use warnings;
use Sub::Name;
use Carp ();
@dolmen
dolmen / StarMath.md
Last active August 29, 2015 14:22
StarMath and eqn
@dolmen
dolmen / json2xml.js
Created August 25, 2010 16:14
JSON to XML serializer
// A serialization of a JavaScript object to XML
// TODO: test suite
function json2xml(o, tab) {
var xml=[], addChild = function(name, v, ind) {
var childs;
if (v instanceof Array) {
for (var i=0, n=v.length; i<n; i++)
addChild(name, v[i], ind);
} else if (typeof(v) == "object") {
xml.push(ind, "<", name);
@dolmen
dolmen / cpants-rank.pl
Created August 30, 2010 22:29
Kwalitee rank for an Acme::CPANAuthors list (from CPANTS)
#!/usr/bin/perl
# Author: Olivier Mengué
# 2010-08-21
use utf8;
use strict;
use warnings;
use Acme::CPANAuthors;
use ORDB::CPANTS 0.05;
use List::Util qw(reduce);
@dolmen
dolmen / 00-learning-Go.txt
Last active September 14, 2015 16:32
Learning Go...
Learning Go, following the "Go tour"