I will set up a simple but working website on a Digital Ocean droplet where a basic design and procedures can be experimented with.
The DO server was created on 2016-12-09:
# consider the following code from perl6/doc/htmlify.p6 starting at line 772: | |
pod-table($*DR.lookup($kind, :by<kind>)\ | |
.grep({$category ⊆ .categories})\ # XXX | |
.categorize(*.name).sort(*.key)>>.value | |
.map({[ | |
.map({.subkinds // Nil}).unique.join(', '), | |
pod-link(.[0].name, .[0].url), | |
.&summary | |
]}) |
Writing language document for Documentation ... | |
Cannot resolve caller find-headings(Pod::Config.new(type => "item", config => {:numbered("1")}), Any); none of these signatures match: | |
(Str $s is raw, :$inside-heading) | |
(Pod::FormattingCode $node is raw where { ... }, :$inside-heading) | |
(Pod::Heading $node is raw, :$inside-heading) | |
(Positional \list, :$inside-heading) | |
(Pod::Block $node is raw, :$inside-heading) | |
(Pod::Raw $node is raw, :$inside-heading) | |
in method throw at /home/travis/.rakudobrew/moar-nom/install/share/perl6/runtime/CORE.setting.moarvm line 1 | |
in sub do-toc at /home/travis/.rakudobrew/moar-nom/install/share/perl6/site/sources/288871C41A3B66B47FE3182C4BFE934A79450BF2 (Pod::To::HTML) line 227 |
=begin pod | |
=TITLE class Str | |
=SUBTITLE String of characters | |
=head2 sub sprintf | |
=comment Features are still being tested for implementation, so some | |
of the following features may be removed |
Problem: | |
======= | |
A Perl 6 module (Net::B) under development (in a local clone of your | |
Github repo) needs another Perl 6 module (Net::A) under development, | |
and neither module is in the Perl 6 ecosystem. | |
Given: | |
===== |
NOTES: | |
1. The following comments are from my initial foray into the current Perl 6 | |
ecosystem and they are an attempt to help me understand my place in it as a | |
module developer. All opinions are mine and are subject to change based | |
on new empirical evidence or critique by those who know the system better | |
than I. | |
2. The description assumes use of Github for all version control but could | |
probably apply to other public version control systems as well. |
#!/usr/bin/env perl6 | |
use Test; | |
use File::Temp; | |
multi sub dtext(IO::Handle:D $f, Str $str is copy, Bool :$triple = False) { | |
my $s = $str ~ $str; # double the input text | |
$s ~= $str if $triple; # or triple it | |
$f.say: $s; | |
} |
#!/usr/bin/env perl6 | |
my $f = 'test-file.txt'; | |
my $sr = 'text'; | |
say "Testing on IO::Handle"; | |
my $fh = open $f, :w; | |
$fh.say: $sr; | |
say "== Reporting False:"; |
<?xml version="1.0"?> | |
<html xmlns:og="http://opengraphprotocol.org/schema/" xmlns:fb="http://www.facebook.com/2008/fbml" xmlns="http://www.w3.org/1999/xhtml"> | |
<head> | |
<link rel="shortcut icon" href="/favicon.ico"/> | |
<title> Federal Holidays </title> | |
<meta content="IE=edge" http-equiv="X-UA-Compatible"/> | |
<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/> | |
<meta name="description" content="Welcome to opm.gov"/> | |
<meta name="keywords" content="OPM,Office of Personnel Management,opm.gov"/> | |
<meta name="Expires"/> |
#!/usr/bin/env perl6 | |
foo; | |
sub fmt($fmt) { | |
my token fmt { ^ :i a|b $ } | |
!$fmt.defined || $fmt ~~ &fmt | |
} | |
sub foo { |