-sub copy {
- my @what = @_ ? @_ : keys %$hash;
- foreach my $name (@what) {
- warn "# copy $name ", dump( $hash->{$name} ),$/;
- $row->{$name} = $hash->{$name};
+sub commands {{
+ 'show adsl port %s' => [],
+ 'show adsl port %s line-config' => [],
+ 'show adsl port %s physical-table' => [],
+}}
+
+sub fixup_row {
+ my ( $self, $row ) = @_;
+ # cleanup column names
+ foreach my $n ( grep { m/[:\s]/ } keys %$row ) {
+ my $v = delete $row->{$n};
+ $n =~ s/\s+/_/g;
+ $n =~ s/:$// && $v =~ s/\skbps$//; # special case
+ $row->{$n} = $v;