Burak Gürsoy avatar Burak Gürsoy committed ac00b01

Just use SPEC.
Get rid of tr///d warnings.

Comments (0)

Files changed (3)

Build.PL

-use strict;
-use warnings;
-use lib qw( builder );
-use Build;
-
-my $mb = Build->new;
-$mb->change_versions(1);
-$mb->copyright_first_year( '2009' );
-$mb->add_pod_author_copyright_license(1);
-$mb->create_build_script;
-
-1;
-{
-    module_name => 'Device::CableModem::Motorola::SB4200',
-    requires    => {
-        'LWP::UserAgent'    => 0,
-        'HTML::TableParser' => 0,
-        'HTML::Form'        => 0,
-        'Exception::Class'  => 0,
-        ( $] < 5.006 ? ( 'warnings::compat' => 0 ) : ()),
-    },
-    meta_merge => {
-        resources => {
-            repository => 'http://bitbucket.org/burak/cpan-device-cablemodem-motorola-sb4200/',
-        },
-    },
-}
+{
+    module_name => 'Device::CableModem::Motorola::SB4200',
+    requires    => {
+        'LWP::UserAgent'    => 0,
+        'HTML::TableParser' => 0,
+        'HTML::Form'        => 0,
+        'Exception::Class'  => 0,
+        ( $] < 5.006 ? ( 'warnings::compat' => 0 ) : ()),
+    },
+    meta_merge => {
+        resources => {
+            repository => 'http://bitbucket.org/burak/cpan-device-cablemodem-motorola-sb4200/',
+        },
+    },
+    BUILDER => {
+        change_versions                  => 1,
+        copyright_first_year             => '2009',
+        add_pod_author_copyright_license => 1,
+    },
+}

lib/Device/CableModem/Motorola/SB4200.pm

 
     my $list = sub {
         my ( $id, $line, $cols, $udata ) = @_;
-        (my $name = lc $cols->[0]) =~ tr/ /_/d;
+        (my $name = lc $cols->[0]) =~ tr/ /_/;
         $list{ $name } = $cols->[1];
         return;
     };
 
     my $down_row = sub {
         my ( $id, $line, $cols, $udata ) = @_;
-        (my $name = lc $cols->[0]) =~ tr/ /_/d;
+        (my $name = lc $cols->[0]) =~ tr/ /_/;
         $down{ $name } = $cols->[1];
         return;
     };
 
     my $up_row = sub {
         my ( $id, $line, $cols, $udata ) = @_;
-        (my $name = lc $cols->[0]) =~ tr/ /_/d;
+        (my $name = lc $cols->[0]) =~ tr/ /_/;
         $up{ $name } = $cols->[1];
         return;
     };
 
     my $cb_row = sub {
         my ( $id, $line, $cols, $udata ) = @_;
-        (my $name = lc $cols->[0]) =~ tr/ /_/d;
+        (my $name = lc $cols->[0]) =~ tr/ /_/;
         $rv{ $name } = $cols->[1];
         return;
     };
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.