briandfoy

#!perl
use v5.10;
use strict;

use POSIX;

my @zones = sort map { chomp; $_ } grep { /Time$/ } qx( tzutil /l );

my @new;
foreach my $zone ( @zones ) {

briandfoy

#!/usr/bin/perl

use v5.28;
use open qw(:std :utf8);
use utf8;

use Mojo::JSON qw(encode_json);

use Mojo::UserAgent;
use Mojo::Util qw(dumper trim);

briandfoy

#!/usr/bin/perl
# https://gist.github.com/briandfoy/f0f9405dda27aafd90ee79efb1ffa139

=head1 NAME

=head1 SYNOPSIS

	# first, get your royalty report from
	# https://leanpub.com/u/USER/generate_all_royalties_csv
	# download that somewhere

briandfoy

$ bmt licenses
MyCPAN-Indexer artistic_2
	Archive-Extract-Libarchive perl_5
		File-Slurp perl_5
		Object-Tiny perl_5
		Path-Class perl_5
	Archive-Zip perl_5
	CPAN-Checksums perl_5
		Compress-Bzip2 perl_5
		Data-Compare artistic_1, gpl_2

briandfoy

#!perl
use v5.26;

my %rt_to_github = map { chomp; split /,/ } <DATA>;

foreach my $arg ( @ARGV ) {
	unless( exists $rt_to_github{$arg} ) {
		say "No mapping for RT #$arg\n";
		next;
		}

briandfoy

#!/usr/bin/perl
use v5.26;
use experimental qw(signatures);

=head1 NAME

zamzar_epub_to_mobi - use Zamzar to convert an ePub to Mobi

=head1 SYNOPSIS

briandfoy

#!perl
use v5.10;
use experimental qw(signatures);

use File::Path qw(make_path);
use File::Spec::Functions;
use Mojo::DOM;
use Mojo::URL;
use Mojo::Util qw(dumper);
use XML::LibXML;

briandfoy

theme = perl7

[TestingAndDebugging::RequireUseStrict]
add_themes = perl7

[TestingAndDebugging::RequireUseWarnings]
add_themes = perl7

[InputOutput::ProhibitBarewordFileHandles]
add_themes = perl7

briandfoy

Minion draft outline

• Introduction

• Setup

  • SQLite
  • Postgres
  • dashboard
  • enqueue a job, run a task
  • one Minion to bind them all

briandfoy

#!/Users/brian/bin/perl -CASD
use v5.30;
use open qw(:std :utf8);

use Math::Random::Secure qw(irand rand);

=encoding utf8

=head1 NAME