From 79b0a7c9ca8cd36ba394dad6d752636850ace370 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 6 Sep 2017 16:14:26 +0200 Subject: [PATCH] Bug 18541: [QA Follow-up] Add POD to Patroncard.pm Content-Type: text/plain; charset=utf-8 Just adding the POD framework to make qa tools happy. The authors are encouraged to complete this information. Signed-off-by: Marcel de Rooy --- C4/Patroncards/Patroncard.pm | 46 +++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 43 insertions(+), 3 deletions(-) diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm index f13d137..a645dd9 100644 --- a/C4/Patroncards/Patroncard.pm +++ b/C4/Patroncards/Patroncard.pm @@ -28,6 +28,26 @@ use C4::Creators::Lib qw(get_font_types get_unit_values); use C4::Creators::PDF qw(StrWidth); use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes); +=head1 NAME + +C4::Patroncards::Patroncard + +=head1 SYNOPSIS + + use C4::Patroncards::Patroncard; + + # Please extend + + +=head1 DESCRIPTION + + This module allows you to ... + +=head1 FUNCTIONS + +=head2 new + +=cut sub new { my ($invocant, %params) = @_; @@ -62,6 +82,10 @@ sub new { return $self; } +=head2 draw_barcode + +=cut + sub draw_barcode { my ($self, $pdf) = @_; # Default values for barcode scaling are set in constructor to work with pre-existing installations @@ -79,6 +103,10 @@ sub draw_barcode { ); } +=head2 draw_guide_box + +=cut + sub draw_guide_box { my ($self, $pdf) = @_; warn sprintf('No pdf object passed in.') and return -1 if !$pdf; @@ -93,6 +121,10 @@ sub draw_guide_box { $pdf->Add($obj_stream); } +=head2 draw_guide_grid + +=cut + sub draw_guide_grid { my ($self, $pdf) = @_; warn sprintf('No pdf object passed in.') and return -1 if !$pdf; @@ -165,6 +197,9 @@ sub draw_guide_grid { $pdf->Text( $self->{'llx'} + $self->{'width'} - $strtop_len , $self->{'lly'} + $self->{'height'} - $font_size , $strtop ); } +=head2 draw_text + +=cut sub draw_text { my ($self, $pdf, %params) = @_; @@ -268,6 +303,10 @@ sub draw_text { } } +=head2 draw_image + +=cut + sub draw_image { my ($self, $pdf) = @_; warn sprintf('No pdf object passed in.') and return -1 if !$pdf; @@ -288,6 +327,10 @@ sub draw_image { } } +=head2 draw_barcode + +=cut + sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no common place for it atm... my $self = shift; my %params = @_; @@ -370,6 +413,3 @@ __END__ Chris Nighswonger =cut - - - -- 2.1.4