committed a missing file

wchristian · Jan 24, 2019 · 01d7291 · 01d7291
1 parent 569136d
commit 01d7291
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/label.pm b/label.pm
@@ -0,0 +1,14 @@
+package label;
+use strictures 2;
+use parent 'Parse::Binary';
+use constant FORMAT => (
+    magic  => 'a136',
+    width  => 'L',
+    height => 'L',
+    eh     => 'a48',
+    length => 'L',
+    text   => 'a{$length}',
+    pad    => 'a{($length % 4) ? 4 - ($length % 4) : 0}',
+    tail   => 'a*',
+);
+1;