WebPAC/Input/Test.pm

package WebPAC::Input::Test;

use warnings;
use strict;

use WebPAC::Input;
use WebPAC::Common;
use base qw/WebPAC::Common/;
use Data::Dump qw/dump/;

=head1 NAME

WebPAC::Input::Test - Mock test records for WebPAC

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';

=head1 SYNOPSIS

Setup test record

 $WebPAC::Input::Test::rec = {
        '200' => [ {
                'a' => 'foo',
                'b' => 'bar',
                }, {
                'a' => 'baz',
                } ],
        '900' => [
                'foobar',
                ],
  };

Setup optional size

  $WebPAC::Input::Test::size = 42;

=head1 FUNCTIONS

=head2 new

  my $isis = new WebPAC::Input::Test(
        path => '/path/to/LIBRI'
        filter => sub {
                my ($l,$field_nr) = @_;
                # do something with $l which is line of input file
                return $l;
        },
  }

C<filter> will be assigned to C<$WebPAC::Input::Test::filter>

=cut

our $filter;

sub new {
        my $class = shift;
        my $self = {@_};
        bless($self, $class);

        my $arg = {@_};

        $filter = $arg->{filter};

        $self->_get_logger()->info("mocking Test database with args = ", dump($arg));

        $self ? return $self : return undef;
}

=head2 fetch_rec

Return record with ID C<$mfn> from database

  my $rec = $isis->fetch_rec( $mfn );

Second argument, C<filter_coderef> will be assigned to
C<$WebPAC::Input::Test::filer_coderef>

=cut

our $rec;
our $filter_coderef;

sub fetch_rec {
        my $self = shift;

        my $mfn = shift;
        $filter_coderef = shift;

        $self->_get_logger()->debug("mfn = $mfn rec = ", dump($rec));

        return $rec;
}

=head2 dump_ascii

Return dump of record ID C<$mfn> from database

  my $rec = $isis->dump_ascii( $mfn );

=cut

sub dump_ascii {
        my $self = shift;

        return dump( $rec );
}

=head2 size

Return number of records in database

  my $size = $isis->size;

=cut

our $size = 1;

sub size {
        my $self = shift;
        $self->_get_logger()->debug("size = $size");
        return $size;
}

=head1 AUTHOR

Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>

=head1 COPYRIGHT & LICENSE

Copyright 2007 Dobrica Pavlinusic, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1; # End of WebPAC::Input::Test
1	dpavlin	796	package WebPAC::Input::Test;
2
3			use warnings;
4			use strict;
5
6			use WebPAC::Input;
7	dpavlin	797	use WebPAC::Common;
8	dpavlin	796	use base qw/WebPAC::Common/;
9	dpavlin	797	use Data::Dump qw/dump/;
10	dpavlin	796
11			=head1 NAME
12
13			WebPAC::Input::Test - Mock test records for WebPAC
14
15			=head1 VERSION
16
17			Version 0.01
18
19			=cut
20
21			our $VERSION = '0.01';
22
23			=head1 SYNOPSIS
24
25			Setup test record
26
27			$WebPAC::Input::Test::rec = {
28			'200' => [ {
29			'a' => 'foo',
30			'b' => 'bar',
31			}, {
32			'a' => 'baz',
33			} ],
34			'900' => [
35			'foobar',
36			],
37			};
38
39			Setup optional size
40
41	dpavlin	797	$WebPAC::Input::Test::size = 42;
42	dpavlin	796
43			=head1 FUNCTIONS
44
45			=head2 new
46
47			my $isis = new WebPAC::Input::Test(
48			path => '/path/to/LIBRI'
49			filter => sub {
50			my ($l,$field_nr) = @_;
51			# do something with $l which is line of input file
52			return $l;
53			},
54			}
55
56	dpavlin	798	C<filter> will be assigned to C<$WebPAC::Input::Test::filter>
57
58	dpavlin	796	=cut
59
60	dpavlin	798	our $filter;
61
62	dpavlin	796	sub new {
63			my $class = shift;
64			my $self = {@_};
65			bless($self, $class);
66
67			my $arg = {@_};
68
69	dpavlin	798	$filter = $arg->{filter};
70
71	dpavlin	796	$self->_get_logger()->info("mocking Test database with args = ", dump($arg));
72
73			$self ? return $self : return undef;
74			}
75
76			=head2 fetch_rec
77
78			Return record with ID C<$mfn> from database
79
80			my $rec = $isis->fetch_rec( $mfn );
81
82	dpavlin	797	Second argument, C<filter_coderef> will be assigned to
83	dpavlin	798	C<$WebPAC::Input::Test::filer_coderef>
84	dpavlin	796
85			=cut
86
87	dpavlin	797	our $rec;
88			our $filter_coderef;
89	dpavlin	796
90			sub fetch_rec {
91			my $self = shift;
92
93	dpavlin	797	my $mfn = shift;
94			$filter_coderef = shift;
95	dpavlin	796
96	dpavlin	797	$self->_get_logger()->debug("mfn = $mfn rec = ", dump($rec));
97	dpavlin	796
98			return $rec;
99			}
100
101			=head2 dump_ascii
102
103			Return dump of record ID C<$mfn> from database
104
105			my $rec = $isis->dump_ascii( $mfn );
106
107			=cut
108
109			sub dump_ascii {
110			my $self = shift;
111
112			return dump( $rec );
113			}
114
115			=head2 size
116
117			Return number of records in database
118
119			my $size = $isis->size;
120
121			=cut
122
123	dpavlin	797	our $size = 1;
124	dpavlin	796
125			sub size {
126			my $self = shift;
127	dpavlin	797	$self->_get_logger()->debug("size = $size");
128	dpavlin	796	return $size;
129			}
130
131			=head1 AUTHOR
132
133			Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
134
135			=head1 COPYRIGHT & LICENSE
136
137			Copyright 2007 Dobrica Pavlinusic, All Rights Reserved.
138
139			This program is free software; you can redistribute it and/or modify it
140			under the same terms as Perl itself.
141
142			=cut
143
144			1; # End of WebPAC::Input::Test