File Coverage

blib/lib/RT/Extension/Converter/RT3/Config.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package RT::Extension::Converter::RT3::Config;
2 1     1   6 use base qw/RT::Extension::Converter::Config/;
  1         2  
  1         80  
3 1     1   6 use warnings;
  1         2  
  1         23  
4 1     1   6 use strict;
  1         1  
  1         142  
5              
6             __PACKAGE__->mk_accessors(qw(default_queue encoding));
7              
8             =head1 NAME
9              
10             RT::Extension::Converter::RT3::Config - config data for the RT3 importer
11              
12              
13             =head1 SYNOPSIS
14              
15             use RT::Extension::Converter::RT1::Config;
16            
17             Usually retrieved from a converter object with
18              
19             $rt1converter->config
20              
21             =head1 DESCRIPTION
22              
23             Useful config values for the RT3 converter.
24              
25             =head1 METHODS
26              
27             =head2 default_queue
28              
29             Where to put tickets from deleted queues
30              
31             =head2 encoding
32              
33             What encoding to put data in before handing it to RT3's methods
34              
35             =head2 new
36              
37             creates an RT3 config object and sets some defaults
38              
39             =cut
40              
41             sub new {
42 0     0 1   my $class = shift;
43 0           my $self = $class->SUPER::new(@_);
44              
45 0           $self->default_queue('General');
46 0           $self->encoding('iso-8859-1');
47              
48 0           return $self;
49             }
50              
51             =head1 AUTHOR
52              
53             Kevin Falcone C<< >>
54              
55              
56             =head1 LICENCE AND COPYRIGHT
57              
58             Copyright (c) 2007, Best Practical Solutions, LLC. All rights reserved.
59              
60             This module is free software; you can redistribute it and/or
61             modify it under the same terms as Perl itself. See L.
62              
63              
64             =head1 DISCLAIMER OF WARRANTY
65              
66             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
67             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
68             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
69             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
70             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
71             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
72             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
73             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
74             NECESSARY SERVICING, REPAIR, OR CORRECTION.
75              
76             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
77             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
78             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
79             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
80             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
81             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
82             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
83             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
84             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
85             SUCH DAMAGES.
86              
87             =cut
88              
89             1;
90