Tom Browder tbrowder

## Why the '\'?
# 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
            ]})

## pod6-problem.log
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

## proposed-sprintf-doc.txt
=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

## install-deps-travis.txt
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:
=====

## current-ecosystem-process
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.

## multi-output-sigs.txt
#!/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;
}

## test-io-handle.p6
#!/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:";

## valid-xml.xml
<?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"/>

## advent.perl6.org.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                tbrowder
                / advent.perl6.org.md
            
            
              Last active
              December 9, 2016 17:32
            
          
    A proposal for a Perl 6-hosted Advent Calendar

Site

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:

  
## test-param.p6
#!/usr/bin/env perl6

foo;

sub fmt($fmt) {
  my token fmt { ^ :i a|b $ }
  !$fmt.defined || $fmt ~~ &fmt
}

sub foo {
	# 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 {