File Coverage

blib/lib/WWW/Mixi/OO/ShowPicture.pm
Criterion Covered Total %
statement 9 18 50.0
branch 0 4 0.0
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 29 48.2


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # copyright (C) 2005 Topia . all rights reserved.
3             # This is free software; you can redistribute it and/or modify it
4             # under the same terms as Perl itself.
5             # $Id: ShowPicture.pm 107 2005-02-05 10:36:02Z topia $
6             # $URL: file:///usr/minetools/svnroot/mixi/trunk/WWW-Mixi-OO/lib/WWW/Mixi/OO/ShowPicture.pm $
7             package WWW::Mixi::OO::ShowPicture;
8 2     2   47570 use strict;
  2         5  
  2         79  
9 2     2   12 use warnings;
  2         5  
  2         66  
10 2     2   11 use base qw(WWW::Mixi::OO::Page);
  2         5  
  2         533  
11              
12             =head1 NAME
13              
14             WWW::Mixi::OO::ShowPicture - WWW::Mixi::OO's
15             L class
16              
17             =head1 SYNOPSIS
18              
19             see super class (L).
20              
21             =head1 DESCRIPTION
22              
23             show_picture page handler
24              
25             =head1 METHODS
26              
27             =over 4
28              
29             =cut
30              
31             =item uri
32              
33             see super class (L).
34              
35             this module handle following params:
36              
37             =over 4
38              
39             =item image
40              
41             image URI.
42              
43             =back
44              
45             =cut
46              
47             sub uri {
48 0     0 1   my $this = shift;
49 0           my $options = $this->_init_uri(@_);
50              
51 0 0         if (exists $options->{image}) {
52 0           $options->{_params}->{img_src} = $options->{image};
53             }
54 0           $this->SUPER::uri($options);
55             }
56              
57             =item parse_uri
58              
59             see super class (L).
60              
61             this module handle following params:
62              
63             =over 4
64              
65             =item image
66              
67             image URI.
68              
69             =back
70              
71             =cut
72              
73             sub parse_uri {
74 0     0 1   my ($this, $data, %options) = @_;
75              
76 0 0         if (exists $data->{params}->{img_src}) {
77 0           $options{image} = $this->absolute_uri(
78             $data->{params}->{img_src},
79             $this->uri);
80             }
81 0           $this->SUPER::parse_uri($data, %options);
82             }
83              
84             1;
85              
86             __END__