File Coverage

blib/lib/Slackware/Slackget/SpecialFileContainerList.pm
Criterion Covered Total %
statement 6 21 28.5
branch 0 2 0.0
condition n/a
subroutine 2 4 50.0
pod 2 2 100.0
total 10 29 34.4


line stmt bran cond sub pod time code
1             package Slackware::Slackget::SpecialFileContainerList;
2              
3 1     1   1176 use warnings;
  1         2  
  1         32  
4 1     1   5 use strict;
  1         3  
  1         310  
5              
6             require Slackware::Slackget::List ;
7              
8             =head1 NAME
9              
10             Slackware::Slackget::SpecialFileContainerList - This class is a container of Slackware::Slackget::SpecialFileContainer object
11              
12             =head1 VERSION
13              
14             Version 1.0.0
15              
16             =cut
17              
18             our $VERSION = '1.0.0';
19             our @ISA = qw( Slackware::Slackget::List );
20              
21             =head1 SYNOPSIS
22              
23             This class is a container of Slackware::Slackget::SpecialFileContainer object, and allow you to perform some operations on this packages list. As the SpecialFileContainer class, it is a slack-get's internal representation of data.
24              
25             use Slackware::Slackget::SpecialFileContainerList;
26              
27             my $containerlist = Slackware::Slackget::SpecialFileContainerList->new();
28             $containerlist->add($container);
29             my $conainer = $containerlist->get($index);
30             my $container = $containerlist->Shift();
31              
32             Please read the Slackware::Slackget::List documentation for more informations (L).
33              
34             =head1 CONSTRUCTOR
35              
36             =head2 new
37              
38             This class constructor don't take any parameters.
39              
40             my $containerlist = new Slackware::Slackget::SpecialFileContainerList ();
41              
42             =cut
43              
44             sub new
45             {
46 0     0 1   my ($class,%args) = @_ ;
47 0           my $self={list_type => 'Slackware::Slackget::SpecialFileContainer','root-tag' => 'slack-get'};
48 0           foreach (keys(%args))
49             {
50 0           $self->{$_} = $args{$_};
51             }
52 0           $self->{LIST} = [] ;
53 0           $self->{ENCODING} = 'utf8' ;
54 0 0         $self->{ENCODING} = $args{'encoding'} if(defined($args{'encoding'})) ;
55 0           bless($self);#,$class
56 0           return $self;
57             }
58              
59             =head2 get_all_media_id
60              
61             return a list of all id of the SpecialFileContainers.
62              
63             =cut
64              
65             sub get_all_media_id {
66 0     0 1   my $self = shift;
67 0           my %shortnames=();
68 0           foreach my $obj (@{$self->get_all}){
  0            
69 0           $shortnames{$obj->id}=1;
70             }
71 0           return keys(%shortnames);
72             }
73              
74              
75             =head1 AUTHOR
76              
77             DUPUIS Arnaud, C<< >>
78              
79             =head1 BUGS
80              
81             Please report any bugs or feature requests to
82             C, or through the web interface at
83             L.
84             I will be notified, and then you'll automatically be notified of progress on
85             your bug as I make changes.
86              
87             =head1 SUPPORT
88              
89             You can find documentation for this module with the perldoc command.
90              
91             perldoc Slackware::Slackget
92              
93              
94             You can also look for information at:
95              
96             =over 4
97              
98             =item * Infinity Perl website
99              
100             L
101              
102             =item * slack-get specific website
103              
104             L
105              
106             =item * RT: CPAN's request tracker
107              
108             L
109              
110             =item * AnnoCPAN: Annotated CPAN documentation
111              
112             L
113              
114             =item * CPAN Ratings
115              
116             L
117              
118             =item * Search CPAN
119              
120             L
121              
122             =back
123              
124             =head1 ACKNOWLEDGEMENTS
125              
126             Thanks to Bertrand Dupuis (yes my brother) for his contribution to the documentation.
127              
128             =head1 COPYRIGHT & LICENSE
129              
130             Copyright 2005 DUPUIS Arnaud, All Rights Reserved.
131              
132             This program is free software; you can redistribute it and/or modify it
133             under the same terms as Perl itself.
134              
135             =cut
136              
137             1; # End of Slackware::Slackget::SpecialFileContainerList