lib/CXGN/ZPL.pm

   1
   2 package CXGN::ZPL;
   3
   4 use Moose;
   5
   6
   7 has 'font'        => ( is      => 'rw',
   8                        isa     => 'Str',
   9                        default => 'xyz',
  10     );
  11
  12 has 'orientation' => ( is      => 'rw',
  13                        isa     => 'Str',
  14                        default => '',
  15     );
  16
  17
  18 has 'print_quality' => ( is      => 'rw',
  19                          isa    => 'Str',
  20                          default=> '',
  21     );
  22
  23 has 'print_orientation' => ( is      => 'rw',
  24                              isa   => 'Str',
  25                              default => 'N',
  26     );
  27
  28 has 'units_of_measurement' => ( is      => 'rw',
  29                                 isa => 'Str',
  30                                 default => 'D',
  31     );
  32
  33 has 'print_width'          => ( is      => 'rw',
  34                                 isa => 'Int',
  35     );
  36
  37 has 'label_length'         => ( is      => 'rw',
  38                                 isa => 'Int',
  39     );
  40
  41 has 'dots_per_millimeter'   => ( is      => 'rw',
  42                                  isa => 'Int',
  43     );
  44
  45 has 'command_list'          => ( is     => 'rw',
  46                                  isa    => 'ArrayRef',
  47     );
  48
  49 has 'field_typeset'         => ( is     => 'rw',
  50                                  isa    => 'ArrayRef',
  51     );
  52
  53 has 'field_default_height' => ( is      => 'rw',
  54                                 isa     => 'Int',
  55                                 default => 10,
  56     );
  57
  58 has 'field_default_width'  => ( is      => 'rw',
  59                                 isa     => 'Int',
  60                                 default => 2,
  61     );
  62
  63 has 'field_default_ratio'  => ( is      => 'rw',
  64                                 isa     => 'Num',
  65                                 default => 3.0,
  66     );
  67
  68 sub graphic_symbol {
  69     my $self = shift;
  70     my ($o, $h, $w) = @_;
  71
  72     $self->add("^GS$o,$h,$w");
  73
  74 }
  75
  76 sub bar_code_field_default {
  77     my $self =shift;
  78     my ($w, $r, $h) = @_;
  79     $self->field_default_width($w);
  80     $self->field_default_ration($r);
  81     $self->field_default_height($h);
  82 }
  83
  84 sub graphic_box {
  85
  86 }
  87
  88 sub comment {
  89
  90 }
  91
  92 sub graphic_ellipse {
  93
  94 }
  95
  96 sub graphic_diagonal_line {
  97
  98
  99 }
 100
 101 sub graphic_circle {
 102
 103 }
 104
 105 sub field_orientation {
 106 }
 107
 108 sub field_origin {
 109
 110 }
 111
 112 sub field_data {
 113
 114 }
 115
 116 sub mirror_image {
 117     my $self = shift;
 118     my $mirror = shift;
 119     die if ($mirror !~ /y|n/i);
 120     $self->add("^PM$mirror");
 121 }
 122
 123 sub barcode_code128 {
 124     my $self = shift;
 125     my ($o, $h, $f, $g, $e, $m) = @_;
 126
 127     if (!defined($o)) { $o = $self->print_orientation(); }
 128     if (!defined($h)) { $h = $self->field_default_height(); }
 129     if (!defined($f)) { $f = ''; }
 130     if (!defined($g)) { $g = ''; }
 131     if (!defined($e)) { $e = ''; }
 132     if (!defined($m)) { $m = ''; }
 133
 134     $self->add("^BC$o,$h,$f,$g,$e,$m");
 135
 136 }
 137
 138 sub start_format {
 139     my $self = shift;
 140
 141     $self->add("^XA");
 142
 143 }
 144
 145
 146 sub end_format {
 147     my $self = shift;
 148     $self->add("^XZ");
 149
 150 }
 151
 152 sub add {
 153     my $self = shift;
 154     my $command = shift;
 155
 156     my $command_list = $self->command_list();
 157     push @$command_list, $command;
 158     $self->command_list($command_list);
 159
 160 }
 161
 162 sub render {
 163     my $self = shift;
 164
 165     my $zpl = "";
 166     foreach my $c (@{$self->command_list()}) {
 167          $zpl .= "$c\n";
 168     }
 169     return $zpl;
 170 }
 171
 172
 173 1;