File Coverage

blib/lib/App/RecordStream/Operation/tohtml.pm

Criterion	Covered	Total	%
statement	60	64	93.7
branch	6	6	100.0
condition	1	2	50.0
subroutine	10	11	90.9
pod	0	7	0.0
total	77	90	85.5

package App::RecordStream::Operation::tohtml;

our $VERSION = "4.0.24";

use strict;
use warnings;

use base qw(App::RecordStream::Operation);

sub init {
  my $this = shift;
  my $args = shift;

  my $no_header;
  my $row_attributes = '';
  my $cell_attributes = '';

  my $key_groups = App::RecordStream::KeyGroups->new();

  my $spec = {
    'keys|k|fields|f=s' => sub { $key_groups->add_groups($_[1]); },
    'noheader'          => \$no_header,
    'rowattributes=s'   => \$row_attributes,
    'cellattributes=s'  => \$cell_attributes,
  };

  $this->parse_options($args, $spec);

  $this->{'KEY_GROUPS'}      = $key_groups;
  $this->{'NO_HEADER'}       = $no_header;
  $this->{'ROW_ATTRIBUTES'}  = $row_attributes;
  $this->{'CELL_ATTRIBUTES'} = $cell_attributes;
}

sub accept_record {
  my $this   = shift;
  my $record = shift;

  $this->print_start($record);

  my $fields          = $this->{'FIELDS'};
  my $row_attributes  = $this->{'ROW_ATTRIBUTES'};
  my $cell_attributes = $this->{'CELL_ATTRIBUTES'};

  $this->push_line("

  foreach my $field (@$fields) {
    my $value = ${$record->guess_key_from_spec($field)} || '';
    $this->push_line("
  }

  $this->push_line("

  return 1;
}

sub print_start {
  my $this   = shift;
  my $record = shift;

  return if ( $this->{'PRINTED_START'} );
  $this->{'PRINTED_START'} = 1;

  $this->push_line(""); "); "); "); 




65




 





 





 





 





 





 



   




66




5





 





 





 





 





7



   my $groups = $this->{'KEY_GROUPS'}; 




67




5




  
100
  




 





 





 





16



   if ( $groups->has_any_group() ) { 




68




2





 





 





 





 





6



     my $specs = $this->{'KEY_GROUPS'}->get_keyspecs($record); 




69




2





 





 





 





 





14



     $this->{'FIELDS'} = $specs; 




70




 





 





 





 





 





 



   } 




71




 





 





 





 





 





 



   else { 




72




3





 





 





 





 





14



     $this->{'FIELDS'} = [sort keys %$record]; 




73




 





 





 





 





 





 



   } 




74




 





 





 





 





 





 



   




75




5




  
100
  




 





 





 





15



   return if ( $this->{'NO_HEADER'} ); 




76




 





 





 





 





 





 



   




77




4





 





 





 





 





15



   $this->print_header(); 




78




 





 





 





 





 





 



 } 




79




 





 





 





 





 





 



   




80




 





 





 





 





 





 



 sub print_header { 




81




4





 





 




  
4
  



  
0
  




38



   my $this = shift; 




82




 





 





 





 





 





 



   




83




4





 





 





 





 





23



   my $fields = $this->{'FIELDS'}; 




84




 





 





 





 





 





 



   




85




4





 





 





 





 





20



   my $row_attributes  = $this->{'ROW_ATTRIBUTES'}; 




86




4





 





 





 





 





6



   my $cell_attributes = $this->{'CELL_ATTRIBUTES'}; 




87




 





 





 





 





 





 



   




88




4





 





 





 





 





15



   $this->push_line("  




89




 





 





 





 





 





 



   




90




4





 





 





 





 





8



   foreach my $field (@$fields) { 




91




7





 





 





 





 





18



     $this->push_line("    $field




92




 





 





 





 





 





 



   } 




93




 





 





 





 





 





 



   




94




4





 





 





 





 





8



   $this->push_line("  




95




 





 





 





 





 





 



 } 




96




 





 





 





 





 





 



   




97




 





 





 





 





 





 



 sub stream_done { 




98




5





 





 




  
5
  



  
0
  




8



   my $this = shift; 




99




5





 





 





 





 





10



   $this->push_line("");

  my $groups = $this->{'KEY_GROUPS'};
  if ( $groups->has_any_group() ) {
    my $specs = $this->{'KEY_GROUPS'}->get_keyspecs($record);
    $this->{'FIELDS'} = $specs;
  }
  else {
    $this->{'FIELDS'} = [sort keys %$record];
  }

  return if ( $this->{'NO_HEADER'} );

  $this->print_header();
}

sub print_header {
  my $this = shift;

  my $fields = $this->{'FIELDS'};

  my $row_attributes  = $this->{'ROW_ATTRIBUTES'};
  my $cell_attributes = $this->{'CELL_ATTRIBUTES'};

  $this->push_line("

  foreach my $field (@$fields) {
    $this->push_line("
  }

  $this->push_line("
}

sub stream_done {
  my $this = shift;
  $this->push_line("
}

sub add_help_types {
  my $this = shift;
  $this->use_help_type('keyspecs');
  $this->use_help_type('keygroups');
  $this->use_help_type('keys');
}

sub usage {
  my $this = shift;

  my $options = [
    ['keys ', 'Keys to print in the table.  May be specified multiple times, may be comma separated.  Default to all fields in the first record.  May be a keyspec or a keygroup, see \'--help-keys\' for more information'],
    ['noheader', 'Do not print the header row'],
    ['rowattributes', 'HTML attributes to put on the tr tags'],
    ['cellattributes', 'HTML attributes to put on the td and th tag'],
  ];

  my $args_string = $this->options_string($options);

  return <
Usage: recs-totable  []
   __FORMAT_TEXT__
   Prints out an html table for the records from input or from .
   __FORMAT_TEXT__

$args_string

Examples:
   Print all fields
      recs-tohhtml
   Print foo and bar fields, without a header
      recs-tohtml --fields foo,bar --noheader
USAGE
}

1;