Skip to content

Instantly share code, notes, and snippets.

@atoomic
atoomic / cpan2gh_authors.pl
Created June 11, 2019 16:47
cpan2gh search
#!env perl
use v5.20;
use feature qw(signatures say);
no warnings qw(experimental::signatures);
use Test::More;
use HTTP::Tiny;

Keybase proof

I hereby claim:

  • I am atoomic on github.
  • I am atoomic (https://keybase.io/atoomic) on keybase.
  • I have a public key ASCVq4GX0RUzPgH8lBFIeXySjdro_x0ePooO2OEfifh2rwo

To claim this, I am signing this object:

@atoomic
atoomic / test-google-drive.pl
Created December 24, 2019 17:56
Net::Google::Drive::Simple
#!perl
use strict;
use warnings;
use feature 'say';
use Net::Google::Drive::Simple;
my $gd = Net::Google::Drive::Simple->new();
#!perl
use Test::More;
my %storage;
use constant SAMPLE_CONSTANT => defined eval { $storage{cache} = get_string('abcd') };
sub get_string {
my ( $str ) = @_;
return ":$str:";