Remove legacy laser ship code. (#4452)
parent
138cfc5959
commit
c932b6a7a5
|
@ -1,17 +0,0 @@
|
|||
package DDG::Goodie::LaserShip;
|
||||
# ABSTRACT: Track a package through Lasership
|
||||
|
||||
use strict;
|
||||
use DDG::Goodie;
|
||||
|
||||
zci is_cached => 1;
|
||||
zci answer_type => "lasership";
|
||||
|
||||
triggers query_nowhitespace_nodash => qr/(^l[a-z]\d{8}$)/i;
|
||||
|
||||
handle query_nowhitespace_nodash => sub {
|
||||
return $1, heading => "Lasership Shipment Tracking", html => qq(Track this shipment at <a href="http://lasership.com/track/$1">Lasership</a>.) if $1;
|
||||
return;
|
||||
};
|
||||
|
||||
1;
|
|
@ -1,27 +0,0 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use Test::Deep;
|
||||
use DDG::Test::Goodie;
|
||||
|
||||
zci answer_type => 'lasership';
|
||||
zci is_cached => 1;
|
||||
|
||||
ddg_goodie_test(
|
||||
[qw( DDG::Goodie::LaserShip )],
|
||||
'LL12345678' => test_zci(
|
||||
"LL12345678",
|
||||
heading => 'Lasership Shipment Tracking',
|
||||
html => qq(Track this shipment at <a href="http://lasership.com/track/LL12345678">Lasership</a>.)
|
||||
),
|
||||
'LL 12345678' => test_zci(
|
||||
"LL12345678",
|
||||
heading => 'Lasership Shipment Tracking',
|
||||
html => qq(Track this shipment at <a href="http://lasership.com/track/LL12345678">Lasership</a>.)
|
||||
),
|
||||
'1LS12345678999999999' => undef
|
||||
);
|
||||
|
||||
done_testing;
|
Loading…
Reference in New Issue