stevan

#!perl

use v5.18;

use strict;
use warnings;

use Test::More;
use Test::Fatal;

stevan

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<!--
This file was generated automatically by yaml2plist.pl from ModernPerl.tmLanguage.yaml.ep.
DO NOT edit this file directly. Instead, use yaml2plist.pl to generate it.
-->
<plist version="1.0">
    <dict>
        <key>comment</key>
        <string>Blaise Roth &lt;[email protected]&gt;</string>

stevan

[?25l▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀[38;2;98;224;255;48;2;111;198;

stevan

#!perl

use v5.38;
use experimental 'class', 'builtin', 'try';
use builtin 'blessed';

use Time::HiRes qw[ sleep ];
use Carp        qw[ confess ];

## -----------------------------------------------------------------------------

stevan

#!perl

use v5.38;

package Test::Foo;
use v5.38;
use experimental 'class';

sub get_bar (@args) {
    Test::Foo::Bar->new( @args )

stevan

#!perl

use v5.38;
use experimental 'class';

use Data::Dumper;
use MOP;

class Baz {
    method bling { 'BLING' }