my $lens = Optical::Bench::BeamSplitter.new;

$a =< $lens >= $b; # Think of $a "passing through" $lens into $b.
$a = 'foo bar';
is-deeply $b, [ 'foo', 'bar' ];
$b.[1] = 'moo';
is $a, 'foo moo';

##</code><code>##

my $lens2 = Optical::Bench::BeamSplitter.new('-');
$a =< $lens >=< $lens2 >= $b;
$a = 'foo-bar baz-qux';
is-deeply $b, [ [ 'foo', 'bar' ], [ 'baz', 'qux' ] ];

##</code><code>##

$a << $lens >= $b;
$a = 'foo bar'; is-deeply $b, [ 'foo', 'bar' ]; # ok 1
$b.[0] = 'moo'; is-deeply $b, [ 'moo', 'bar' ]; is $a, 'foo bar'; # ok 2, ok 3

##</code><code>##

my $lens = O::B::mySQL.new('Mmm dd, yyy');
$created-date =< $lens >= $created-date-mySQL;
is $created-date, 'Feb 3, 2016';
is $created-date-mySQL, '2016-02-03T09:50+02:00';

##</code><code>##

$post.<created-date> =< O::B::mySQL::Date.new >= $params.<created>;