stevan

#!perl

use v5.38;
use experimental 'class';

use Data::Dumper;
use MOP;

class Baz {
    method bling { 'BLING' }

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', 'builtin', 'try';
use builtin 'blessed';

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

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

stevan

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

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

#!perl

use v5.18;

use strict;
use warnings;

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

stevan

#!perl

use strict;
use warnings;

use Test::More;
use Data::Dumper;

=pod

stevan

#!perl

use v5.20;
use warnings;
use Path::Class qw[ file ];

use PPI;
use PPI::Document;
use PPI::Dumper;

stevan

#!/usr/bin/env perl

use v5.16;

use Bread::Board;
use Data::Dumper;

{
    package OurApp::ServiceDiscovery;
    use Moose::Role;

stevan

Have REST-ful Holidays

Your boss comes to you the day after Thanksgiving vacation (or if you're in Scotland, the day after St. Andrew's Bank Holiday. If you're not in Scotland or the US, adjust accordingly).

Boss: We need a Web API for the Flibber data. I want it to be REST-ful.