Attachment 66878 Details for Bug 18541 – Bug 18541: [QA Follow-up] Add POD to Patroncard.pm

[patch] Bug 18541: [QA Follow-up] Add POD to Patroncard.pm

Bug-18541-QA-Follow-up-Add-POD-to-Patroncardpm.patch (text/plain), 2.63 KB, created by Marcel de Rooy on 2017-09-06 14:17:29 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2017-09-06 14:17:29 UTC

Size: 2.63 KB

patch

obsolete

>From 79b0a7c9ca8cd36ba394dad6d752636850ace370 Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>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 <m.de.rooy@rijksmuseum.nl>
>---
> 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 <cnighswonger AT foundations DOT edu>
> 
> =cut
>-
>-
>-
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 18541: 63127 | 63130 | 63162 | 63217 | 63218 | 63263 | 63280 | 66873 | 66876 | 66877 | 66878 | 66887 | 66910