For Discipulus

There is said to be a special device of the British navy. All the ropes of the royal fleet, from the strongest to the thinnest, are spun in such a manner that a red thread runs through the whole which cannot be removed without unravelling everything, and by means of which even the smallest pieces are recognisable as belonging to the Crown.

Similarly there is running through Ottilie’s diary a thread of affection and attachment which unites and characterises the whole. Thereby these notes, observations and selected aphorisms and whatsoever may be found here, become peculiarly characteristic of their writer and meaningful to her. Each single part that we have selected and communicated gives the most definite testimony of this.

See also

Double Bracket Operator

#!/usr/bin/env perl use strict; use warnings; use feature qw(say); while (<<>>) {say} __END__
[download]
perl -MO=Deparse double_bracket_op.pl double_bracket_op.pl use warnings; use strict; use feature 'say'; while (defined($_ = <<>>)) { say $_; } __DATA__ double_bracket_op.pl syntax OK
[download]

For Lady_Aleena:

#!/usr/bin/env perl use strict; use warnings; use Cpanel::JSON::XS; use feature qw(say); use Data::Dump; use Path::Tiny; my @data = <DATA>; chomp @data; dd \@data; my $json = encode_json \@data; dd $json; my $file = path(q(json.dat)); $file->spew_utf8($json); my $data = decode_json $file->slurp_utf8; dd $data; say q(Cool beans!); __DATA__ foo bar nose cuke
[download]

Class::Tiny and Role::Tiny

package MyClass; use Class::Tiny qw(something); use Role::Tiny::With; use feature qw(say); say q(package ) . __PACKAGE__; with qw(MyRole); 1; package MyRole; use Role::Tiny; use feature qw(say); requires qw(something); say q(package ) . __PACKAGE__; around 'something' => sub { print q(Long John Silver said ); uc &{ (shift) }; }; 1; #!/usr/bin/env perl + use strict; use warnings; use MyClass; use feature qw(say); say q(package ) . __PACKAGE__; my $object = MyClass->new( something => q("I reckon i settled you.") ) +; say $object->something; __END__
[download]