Two examples for DBI (p5 vs p6)

It does not yet support scalarIO or bind by reference
it is now a known issue with the Inline::Perl5 folk, to whom I was
able to explain its use and that the purpose was not just for speed

Author: H.Merijn Brand

dbi5.pl

@@ -0,0 +1,14 @@
+#!/pro/bin/perl
+
+use 5.20.0;
+use warnings;
+
+use DBI;
+
+my $dbh = DBI->connect ("dbi:Pg:");
+
+my $sth = $dbh->prepare ("select count (*) from url");
+$sth->execute;
+$sth->bind_columns (\my $count);
+$sth->fetch;
+say $count;

dbi6.pl

@@ -0,0 +1,17 @@
+#!perl6
+
+use v6;
+use Slang::Tuxic;
+use Inline::Perl5;
+
+my $p5 = Inline::Perl5.new;
+
+$p5.use ("DBI");
+
+my $dbh = $p5.invoke ("DBI", "connect", "dbi:Pg:");
+
+my $sth = $dbh.prepare ("select count (*) from url");
+$sth.execute;
+$sth.bind_columns (\my $count);
+my @count = $sth.fetchrow_array;
+@count[0].say;