Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created December 16, 2017 15:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/778fb610bd2f13bfa7f799c9bfeb0eca to your computer and use it in GitHub Desktop.
Save Whateverable/778fb610bd2f13bfa7f799c9bfeb0eca to your computer and use it in GitHub Desktop.
greppable6
fetch(row|all)
File Code
Tux/CSV
…/dbi6.pl :16:
my @count = $sth.fetchrow_array;
Tux/CSV
…/CSV.pod6 :1839:
csv(in => { $sth.fetchrow_hashref }, out => "dump.csv",
Tux/CSV
…/CSV.pod6 :2192:
push $r.fields: $sth.fetchrow_array;
Tux/CSV
…/CSV.pod6 :2199:
$sth.execute($^row[4]); $^row.fields.push: $sth.fetchrow_array; });
Tux/CSV
…/CSV.pod6 :2474:
csv(out => "foo.csv", in => { $sth.fetchrow_hashref });
dnmfarrell/Pod-PerlTricks
…/SampleArticle.html :176:
while( my $row = $sth->fetchrow_arrayref ) {
dnmfarrell/Pod-PerlTricks
…/SampleArticle.json :1:
{ "body" : "\"\\n\\n<p>How can I easily run the same tests on different data without duplicating a lot of code? If I follow my usual pattern, I start…
dnmfarrell/Pod-PerlTricks
…/SampleArticle.pod :182:
while( my $row = $sth->fetchrow_arrayref ) {
fayland/perl6-Lingua-Unihan
…/Unihan.pm :20:
my ($v) = %sths{$field_type}.fetchrow_array;
perl6/DBIish
…/mysql.p6 :49:
my $arrayref = $sth.fetchall_arrayref();
perl6/DBIish
…/pg.p6 :57:
my $arrayref = $sth.fetchall_arrayref();
perl6/DBIish
…/pg_arrays.p6 :67:
my %h = $sth.fetchrow_typedhash;
perl6/DBIish
…/pg_arrays.p6 :70:
#my $arrayref = $sth.fetchall_arrayref();
perl6/DBIish
…/sqlite.p6 :48:
my $arrayref = $sth.fetchall_arrayref();
perl6/DBIish
…/Connection.pm6 :65:
.execute(@bind) and .fetchrow_arrayref;
perl6/DBIish
…/Connection.pm6 :73:
.execute(@bind) and .fetchrow_hashref;
perl6/DBIish
…/Connection.pm6 :81:
.execute(@bind) and .fetchall_arrayref;
perl6/DBIish
…/Connection.pm6 :89:
.execute(@bind) and .fetchall_hashref($key);
perl6/DBIish
…/Connection.pm6 :99:
while (my $row = .fetchrow_arrayref) {
perl6/DBIish
…/StatementHandle.pm6 :119:
method fetchrow {
perl6/DBIish
…/StatementHandle.pm6 :125:
method fetchrow-hash {
perl6/DBIish
…/StatementHandle.pm6 :126:
hash @!column-name Z=> self.fetchrow;
perl6/DBIish
…/StatementHandle.pm6 :128:
method fetchrow_hashref { self.fetchrow-hash }
perl6/DBIish
…/StatementHandle.pm6 :130:
method fetchall_hashref(Str $key) {
perl6/DBIish
…/StatementHandle.pm6 :138:
method fetchall-hash {
perl6/DBIish
…/StatementHandle.pm6 :141:
for self.fetchall-array -> @a {
perl6/DBIish
…/StatementHandle.pm6 :149:
method fetchall-AoH {
perl6/DBIish
…/StatementHandle.pm6 :151:
my $h = self.fetchrow-hash;
perl6/DBIish
…/StatementHandle.pm6 :157:
method fetchall-array {
perl6/DBIish
…/StatementHandle.pm6 :159:
my $r = self.fetchrow;
perl6/DBIish
…/StatementHandle.pm6 :165:
method fetchrow_array { self.fetchrow }
perl6/DBIish
…/StatementHandle.pm6 :166:
method fetchrow_arrayref { self.fetchrow; }
perl6/DBIish
…/StatementHandle.pm6 :167:
method fetch { self.fetchrow; }
perl6/DBIish
…/StatementHandle.pm6 :169:
method fetchall_arrayref { [ self.fetchall-array.eager ] }
perl6/DBIish
…/DBIish.pm6 :122:
my $arrayref = $sth.fetchall_arrayref();
perl6/DBIish
…/CommonTesting.pm6 :197:
my @array = $sth.fetchall-array;
perl6/DBIish
…/CommonTesting.pm6 :200:
is @array.elems, 6, 'fetchall-array returns 6 rows';
perl6/DBIish
…/CommonTesting.pm6 :206:
ok $ok, 'selected data be fetchall-array matches';
perl6/DBIish
…/CommonTesting.pm6 :301:
" ), 'insert new value for fetchrow_arrayref test'; #test 38
perl6/DBIish
…/CommonTesting.pm6 :307:
'prepare new select for fetchrow_arrayref test'; #test 41
perl6/DBIish
…/CommonTesting.pm6 :311:
if $sth.^can('fetchrow_arrayref') {
perl6/DBIish
…/CommonTesting.pm6 :312:
ok my $arrayref = $sth.fetchrow_arrayref(), 'called fetchrow_arrayref'; #test 43
perl6/DBIish
…/CommonTesting.pm6 :313:
is $arrayref.elems, 4, "fetchrow_arrayref returns 4 fields in a row"; #test 44
perl6/DBIish
…/CommonTesting.pm6 :315:
'selected data matches test data of fetchrow_arrayref'; #test 45
perl6/DBIish
…/CommonTesting.pm6 :317:
else { skip 'fetchrow_arrayref not implemented', 2 }
perl6/DBIish
…/CommonTesting.pm6 :330:
is $sth.fetchrow.join, q["';], 'got the right string back';
perl6/DBIish
…/CommonTesting.pm6 :345:
is $sth.fetchrow.join, '?"', 'correctly retrieved question mark';
perl6/DBIish
…/CommonTesting.pm6 :358:
my $row = $sth.fetchrow-hash;
perl6/DBIish
…/CommonTesting.pm6 :369:
my $row = $sth.fetchrow-hash;
perl6/DBIish
…/CommonTesting.pm6 :370:
$row = $sth.fetchrow-hash;
perl6/DBIish
…/CommonTesting.pm6 :383:
my $row = $sth.fetchrow_arrayref;
perl6/DBIish
…/05-mock.t :23:
is $sth.fetchrow.join(','), 'a,b,1', 'first row (legacy)';
perl6/DBIish
…/05-mock.t :24:
is $sth.fetchrow.join(','), 'd,e,2', 'second row (legacy)';
perl6/DBIish
…/05-mock.t :25:
nok $sth.fetchrow, 'third row is empty (legacy)';
perl6/DBIish
…/05-mock.t :37:
is-deeply [$sth.fetchall-array], [ ['a', 'b', '1'], ['d', 'e', '2']], 'fetchall-array';
perl6/DBIish
…/05-mock.t :47:
is-deeply $sth.fetchrow-hash, hash(col1 => 'a', col2 => 'b', colN => '1'),
perl6/DBIish
…/05-mock.t :48:
'fetchrow-hash (1)';
perl6/DBIish
…/05-mock.t :49:
is-deeply $sth.fetchrow-hash, hash(col1 => 'd', col2 => 'e', colN => '2'),
perl6/DBIish
…/05-mock.t :50:
'fetchrow-hash (2)';
perl6/DBIish
…/05-mock.t :51:
is-deeply $sth.fetchrow-hash, hash(), 'fetchrow-hash (empty)';
perl6/DBIish
…/05-mock.t :54:
is-deeply $sth.fetchall-hash, hash(
perl6/DBIish
…/05-mock.t :56:
), 'fetchall-HoA';
perl6/DBIish
…/05-mock.t :59:
is-deeply $sth.fetchall-AoH, (
perl6/DBIish
…/05-mock.t :62:
).list, 'fetchall-AoH';
perl6/DBIish
…/10-mysql.t :137:
#$row = $sth->fetchrow_arrayref;
perl6/DBIish
…/10-mysql.t :161:
$row = $sth.fetchrow_arrayref();
perl6/DBIish
…/10-mysql.t :197:
#ok(not $sth->fetchrow_arrayref());
perl6/DBIish
…/10-mysql.t :321:
#ok( (defined($array_ref = $sth->fetchall_arrayref) &&
perl6/DBIish
…/10-mysql.t :341:
ok( (defined($array_ref = $sth.fetchall_arrayref) &&
perl6/DBIish
…/10-mysql.t :342:
(!defined($errstr = $sth.errstr)
perl6/DBIish
…/10-mysql.t :355:
#ok((defined($row= $sth->fetchrow_arrayref) &&
perl6/DBIish
…/10-mysql.t :370:
#ok($ret_ref = $sth->fetchall_arrayref(),
perl6/DBIish
…/10-mysql.t :371:
# "Testing fetchall_arrayref of executed query");
perl6/DBIish
…/10-mysql.t :389:
#ok($ret_ref = $sth->fetchall_arrayref(),
perl6/DBIish
…/10-mysql.t :390:
# "Testing fetchall_arrayref (should be four rows)");
perl6/DBIish
…/10-mysql.t :400:
#ok($sth->fetchrow_arrayref(), "Fetch - Testing bug #20153");
perl6/DBIish
…/10-mysql.t :401:
#ok(!($sth->fetchrow_arrayref()),"Not Fetch - Testing bug #20153");
perl6/DBIish
…/10-mysql.t :410:
ok((defined(@row = $sth.fetchrow_array) &&
perl6/DBIish
…/10-mysql.t :423:
ok(my $ret_ref = $sth.fetchall_arrayref(),"Testing fetchall_arrayref of executed query"); # test 67
perl6/DBIish
…/10-mysql.t :437:
ok($ret_ref = $sth.fetchall_arrayref(),"Testing fetchall_arrayref (should be four rows)"); # test 73
perl6/DBIish
…/10-mysql.t :444:
ok($sth.fetchrow_arrayref(), "Fetch - Testing bug #20153"); # test 80
perl6/DBIish
…/10-mysql.t :445:
ok(!($sth.fetchrow_arrayref()),"Not Fetch - Testing bug #20153"); # test 81
perl6/DBIish
…/10-mysql.t :623:
#ok ($row = $sth->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :672:
my ($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :680:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :688:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :709:
is(scalar @{$sth->fetchall_arrayref()}, 0, "No catalogs expected");
perl6/DBIish
…/10-mysql.t :712:
ok(scalar @{$sth->fetchall_arrayref()} > 0, "Some schemas expected");
perl6/DBIish
…/10-mysql.t :715:
ok(scalar @{$sth->fetchall_arrayref()} > 0, "Some table types expected");
perl6/DBIish
…/10-mysql.t :736:
my $info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :745:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :757:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :766:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :775:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :786:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :823:
my $info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :832:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :840:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :848:
$info = $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :877:
my ($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :881:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :888:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :891:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :894:
($info)= $sth->fetchall_arrayref({});
perl6/DBIish
…/10-mysql.t :938:
my $key_info= $sth->fetchall_arrayref;
perl6/DBIish
…/10-mysql.t :1103:
ok (my $aref = $sth->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :1159:
ok ($aref= $sth->fetchall_arrayref);
perl6/DBIish
…/10-mysql.t :1173:
ok ($aref= $sth->fetchall_arrayref);
perl6/DBIish
…/10-mysql.t :1187:
ok ($aref= $sth->fetchall_arrayref);
perl6/DBIish
…/10-mysql.t :1199:
ok ($aref= $sth->fetchall_arrayref);
perl6/DBIish
…/10-mysql.t :1296:
is_deeply($sth->fetchall_arrayref({}), [ { 'num' => '3' } ]);
perl6/DBIish
…/10-mysql.t :1517:
ok ($row = $sth->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :1537:
ok ($row = $sth->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :1659:
ok ($ref = $sth2->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :1669:
ok ($ref = $sth2->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :1718:
while ($sth->fetchrow_arrayref) {
perl6/DBIish
…/10-mysql.t :2005:
$ref = $sth->fetchrow_arrayref ;
perl6/DBIish
…/10-mysql.t :2160:
print "Testing memory leaks in fetchrow_arrayref\n";
perl6/DBIish
…/10-mysql.t :2161:
$msg= "Possible memory leak in fetchrow_arrayref detected";
perl6/DBIish
…/10-mysql.t :2185:
while ($row = $sth->fetchrow_arrayref()) { }
perl6/DBIish
…/10-mysql.t :2207:
print "Testing memory leaks in fetchrow_hashref\n";
perl6/DBIish
…/10-mysql.t :2208:
$msg = "Possible memory leak in fetchrow_hashref detected";
perl6/DBIish
…/10-mysql.t :2219:
while ($row = $sth->fetchrow_hashref()) { }
perl6/DBIish
…/10-mysql.t :2529:
ok ($row= $sth->fetchrow_arrayref);
perl6/DBIish
…/10-mysql.t :2713:
ok ($resultset = $sth->fetchrow_arrayref());
perl6/DBIish
…/10-mysql.t :2725:
ok ($resultset= $sth->fetchrow_arrayref());
perl6/DBIish
…/10-mysql.t :2737:
ok ($resultset= $sth->fetchrow_arrayref());
perl6/DBIish
…/10-mysql.t :2776:
ok(my @fetchrow = $sth->fetchrow_array());
perl6/DBIish
…/10-mysql.t :2778:
is($fetchrow[1],'7','session variable is 7');
perl6/DBIish
…/10-mysql.t :3111:
while (my $row = $sth->fetchrow_hashref()) {
supernovus/perl6-db-model-easy
…/Easy.pm6 :138:
while $.sth.fetchrow-hash -> %hash {
supernovus/perl6-db-model-easy
…/Row.pm6 :182:
my $newrow = $newitem.fetchrow;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :186:
my @a = $idsth.fetchrow_array;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :218:
my $c = ($s.fetchrow_hashref)<c>;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :228:
while (my $row = $sth.fetchrow_hashref) {
tony-o/perl6-db-orm-quicky
…/Model.pm6 :242:
my $c = ($s.fetchrow_hashref)<c>;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :251:
my $cols = $sth.fetchrow_hashref<sql>;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :303:
my $c = ($s.fetchrow_hashref)<c>;
tony-o/perl6-db-orm-quicky
…/Model.pm6 :314:
while (my $row = $sth.fetchrow_hashref) {
tony-o/perl6-db-orm-quicky
…/Search.pm6 :20:
while my $row = $!sth.fetchrow_hashref {
tony-o/perl6-db-orm-quicky
…/Search.pm6 :41:
my $row = $!sth.fetchrow_hashref;
tony-o/perl6-db-orm-quicky
…/Search.pm6 :57:
my $c = $!sth.fetchrow_hashref<c>;
tony-o/perl6-slang-sql
…/README.md :110:
while (my $row = $stmt.fetchrow_hashref) {
tony-o/perl6-slang-sql
…/README.md :147:
while (my $row1 = $stm1.fetchrow_hashref) {
tony-o/perl6-slang-sql
…/README.md :149:
while (my $row2 = $stm2.fetchrow_hashref) {
tony-o/perl6-slang-sql
…/SQL.pm6 :10:
while (my $ROW = $sth.fetchrow_hashref) {
zoffixznet/perl6-IRC-Client-Plugin-Factoid
…/Factoid.pm6 :82:
return $sth.fetchall-AoH;
zoffixznet/perl6-Reminders
…/Reminders.pm6 :92:
my $res := .fetchrow-hash;
zoffixznet/perl6-Reminders
…/Reminders.pm6 :133:
my $res := .fetchrow-hash;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment