Ovid

"""
This is a minimum test case for a bug in some code I'm writing. It's for a custom text editor (hobby
project).

The intent is that if I select some text and apply Bold formatting (for example, by hitting "ctrl-b"),
it will toggle the formatting. Specifically, it should remove the bold formatting if all of the selected
text is bold. Otherwise, it will apply the bold formatting.

However, it won't remove the bold formatting.

Ovid

def enforce_overrides(cls):
    """
    Class decorator to ensure methods marked with @override are actually overriding.
    
        from abc import ABC
        class A(ABC):
            @abstractmethod
            def foo(self):
                pass
                

Ovid

The Problem

CPAN uploads are declining. Part of this is the challenge of figuring out how to write a new module, navigate PAUSE, and release it. Many languages make it very easy to share new open source code with their community and that support is often in the core language.

Go Example

To publish a module in Go:

$ go mod tidy

Ovid

#!/usr/bin/env perl

# vim: ft=perl

use Modern::Perl;
use Mastodon::Client;

use Config::Tiny;
use Getopt::Long;
use JSON::PP 'decode_json';

Ovid

This is a work-in-progress based on this class tutorial. It covers features that are not yet implemented.

NAME

perlclasstut - Object-Oriented Programming via the class keyword

DISCLAIMER

This tutorial is a rough work-in-progress and only covers features of the

Ovid

#!/usr/bin/env perl

use v5.14.0;
use warnings;
use JSON::PP qw(decode_json);
use Data::Dumper;
use Getopt::Long;

GetOptions(
    'perl'    => \my $perl,

Ovid

#!/usr/bin/env perl

use v5.20;
use warnings;
use lib 'lib';
use WebService::OpenSky;
use Geo::ICAO 'code2airport';
use Text::CSV_XS 'csv';
use File::Temp 'tempfile';
use Mojo::UserAgent;

Ovid

#!/usr/bin/env perl

# See also: https://fosstodon.org/@ovid/109745522656272671
# See also: https://priceonomics.com/the-time-everyone-corrected-the-worlds-smartest/

use Less::Boilerplate;

# $does_switch = 0 means they don't switch doors
# $does_switch = 1 means they do switch doors
my $does_switch = 0;

Ovid

Data Types in Perl

This document is to open discussion about what it takes to create an optional, native data type constraint system for Perl. It it not about building a type system.

In the book Types and Programming Languages by Benjamin Pierce, he writes:

Ovid

# RedBlack tree mockup for Corinna, modeled after https://metacpan.org/pod/Tree::RedBlack
# It is not guaranteed to work

use feature 'class';

# we really want this to be a private class, but we can't yet
class RedBlack::Node {
    field $key    :reader :writer :param { undef };
    field $value  :reader :writer :param { undef };
    field $parent :reader :writer :param { undef };