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

$ 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

#!/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

#!/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

#!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

# Here's the input, as an indented heredoc
my $string = <<~"_STRING";
	ABCD
	EFGH
	IJKL
	ABCD
	EFGH
	IJKL
	_STRING

briandfoy

#!perl
use v5.10;
use utf8;

use Encode;
use I18N::Langinfo qw(langinfo CODESET);
use MIME::Base64;

my $codeset = langinfo(CODESET);

briandfoy

#!perl
use v5.36;
use feature ();

my( %Features, %Versions );
foreach my $key ( keys %feature::feature_bundle ) {
	next unless $key =~ /\A5\.\d[02468]\z/;
	$Versions{$key}++;
	foreach my $feature ( $feature::feature_bundle{$key}->@* ) {
		$Features{$feature}{$key}++;

briandfoy

#!/bin/bash

# Don't judge me too harshly. This is a throwaway that I put
# together in 5 minutes to make a couple hundred pull requests
DEV=/Users/brian/Dev
target=.github/workflows/windows.yml
message="Update windows workflow"
echo MESSAGE $message
branch=windows-update
json=$(cat <<-END

briandfoy

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

use File::Basename;
use Text::Shellwords qw(shellwords);

=head1 NAME