File Coverage

blib/lib/WebService/LiveJournal/Thingie.pm
Criterion Covered Total %
statement 9 14 64.2
branch 0 2 0.0
condition n/a
subroutine 3 6 50.0
pod 0 2 0.0
total 12 24 50.0


line stmt bran cond sub pod time code
1             package WebService::LiveJournal::Thingie;
2              
3 12     12   80 use strict;
  12         29  
  12         363  
4 12     12   139 use warnings;
  12         27  
  12         707  
5 12     12   120 use overload '""' => sub { $_[0]->as_string };
  12     0   79  
  12         113  
  0            
6              
7             # ABSTRACT: (Deprecated) base class for WebService::LiveJournal classes
8             our $VERSION = '0.09'; # VERSION
9              
10              
11             sub client
12             {
13 0     0 0   my($self, $new_value) = @_;
14 0 0         $self->{client} = $new_value if defined $new_value;
15 0           $self->{client};
16             }
17              
18 0     0 0   sub error { shift->client->error }
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             WebService::LiveJournal::Thingie - (Deprecated) base class for WebService::LiveJournal classes
31              
32             =head1 VERSION
33              
34             version 0.09
35              
36             =head1 DESCRIPTION
37              
38             B<NOTE>: This distribution is deprecated. It uses the outmoded XML-RPC protocol.
39             LiveJournal has also been compromised. I recommend using DreamWidth instead
40             (L<https://www.dreamwidth.org/>) which is in keeping with the original philosophy
41             LiveJournal regarding advertising.
42              
43             =head1 SEE ALSO
44              
45             L<WebService::LiveJournal>
46              
47             =head1 AUTHOR
48              
49             Graham Ollis <plicease@cpan.org>
50              
51             =head1 COPYRIGHT AND LICENSE
52              
53             This software is copyright (c) 2013 by Graham Ollis.
54              
55             This is free software; you can redistribute it and/or modify it under
56             the same terms as the Perl 5 programming language system itself.
57              
58             =cut