Select Code to Download

#!/usr/bin/env perl
use strict;
...
);
note 'DDI found: ' . $ddi_available->ddi;
ok( $ddi_available->ddi eq '441224900999', 'Found available DDI.' );

DBIC_TRACE=1 prove -l t/47-find_unused_number.t 
t/47-find_unused_number.t .. 1/2 SELECT me.ddi, me.area_code, me.local
+_number, me.number_quality, me.is_used FROM complete_number_e164 me W
+HERE ( ( me.ddi = ? AND me.is_used = ? ) ): '441224900999', '0'
...
  Parse errors: Bad plan.  You planned 2 tests but ran 1.
Files=1, Tests=1,  1 wallclock secs ( 0.02 usr  0.01 sys +  0.62 cusr 
+ 0.03 csys =  0.68 CPU)
Result: FAIL

DBI_TRACE=1 prove -l t/47-find_unused_number.t 
t/47-find_unused_number.t .. 1/2     DBI 1.630-ithread default trace l
+evel set to 0x0/1 (pid 6958 pi eda010) at DBI.pm line 288 via DBI.pm 
+line 1516
...
# Looks like your test exited with 2 just after 1.
!   <- DESTROY(DBI::dr=HASH(0x3158860))= ( undef ) [1 items] during gl
+obal destruction
t/47-find_unused_number.t .. Dubious, test returned 2 (wstat 512, 0x20
+0)

sqlite3 api.db 
sqlite> SELECT me.ddi, me.area_code, me.local_number, me.number_qualit
+y, me.is_used FROM complete_number_e164 me WHERE ( ( me.ddi = '441224
+900999' AND me.is_used = '0' ) );
441224900999|1224|900999|gold|0

#t!/usr/bin/env perl
use strict;
...
note 'DDI found: ' . $ddi_available;
ok( $ddi_available eq '441224900999', 'Found available DDI.' );
$dbh->disconnect;

DBI_TRACE=1 prove -l t/48-dbi_find_unused_number.t 
t/48-dbi_find_unused_number.t ..     DBI 1.630-ithread default trace l
+evel set to 0x0/1 (pid 7128 pi 1d56010) at DBI.pm line 288 via 48-dbi
+_find_unused_number.t line 6
...
All tests successful.
Files=1, Tests=1,  1 wallclock secs ( 0.03 usr  0.00 sys +  0.07 cusr 
+ 0.02 csys =  0.12 CPU)
Result: PASS

package API::Schema::Result::CompleteNumberE164View;

...
);

1;