diff options
author | Jesús <heckyel@hyperbola.info> | 2020-03-02 08:18:54 -0500 |
---|---|---|
committer | Jesús <heckyel@hyperbola.info> | 2020-03-02 08:18:54 -0500 |
commit | c67158fa409f1b1b4f98a8621a69bb2013b76451 (patch) | |
tree | bb4ca80f29cda70734a868d372e00c85e172e7d3 /lib/WWW | |
parent | ad7ec1785fc28799e10d10e7a679dc5bb4891ee3 (diff) | |
download | fair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.tar.lz fair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.tar.xz fair-viewer-c67158fa409f1b1b4f98a8621a69bb2013b76451.zip |
rebrand app
Diffstat (limited to 'lib/WWW')
-rw-r--r-- | lib/WWW/FairViewer.pm (renamed from lib/WWW/StrawViewer.pm) | 38 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Activities.pm (renamed from lib/WWW/StrawViewer/Activities.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Authentication.pm (renamed from lib/WWW/StrawViewer/Authentication.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Channels.pm (renamed from lib/WWW/StrawViewer/Channels.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/CommentThreads.pm (renamed from lib/WWW/StrawViewer/CommentThreads.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/GetCaption.pm (renamed from lib/WWW/StrawViewer/GetCaption.pm) | 16 | ||||
-rw-r--r-- | lib/WWW/FairViewer/GuideCategories.pm (renamed from lib/WWW/StrawViewer/GuideCategories.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Itags.pm (renamed from lib/WWW/StrawViewer/Itags.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/ParseJSON.pm (renamed from lib/WWW/StrawViewer/ParseJSON.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/ParseXML.pm (renamed from lib/WWW/StrawViewer/ParseXML.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/PlaylistItems.pm (renamed from lib/WWW/StrawViewer/PlaylistItems.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Playlists.pm (renamed from lib/WWW/StrawViewer/Playlists.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/RegularExpressions.pm (renamed from lib/WWW/StrawViewer/RegularExpressions.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Search.pm (renamed from lib/WWW/StrawViewer/Search.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Subscriptions.pm (renamed from lib/WWW/StrawViewer/Subscriptions.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Utils.pm (renamed from lib/WWW/StrawViewer/Utils.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/VideoCategories.pm (renamed from lib/WWW/StrawViewer/VideoCategories.pm) | 12 | ||||
-rw-r--r-- | lib/WWW/FairViewer/Videos.pm (renamed from lib/WWW/StrawViewer/Videos.pm) | 14 |
18 files changed, 124 insertions, 124 deletions
diff --git a/lib/WWW/StrawViewer.pm b/lib/WWW/FairViewer.pm index 934dfc9..2749215 100644 --- a/lib/WWW/StrawViewer.pm +++ b/lib/WWW/FairViewer.pm @@ -1,36 +1,36 @@ -package WWW::StrawViewer; +package WWW::FairViewer; use utf8; use 5.016; use warnings; use parent qw( - WWW::StrawViewer::Search - WWW::StrawViewer::Videos - WWW::StrawViewer::Channels - WWW::StrawViewer::Playlists - WWW::StrawViewer::ParseJSON - WWW::StrawViewer::Activities - WWW::StrawViewer::Subscriptions - WWW::StrawViewer::PlaylistItems - WWW::StrawViewer::CommentThreads - WWW::StrawViewer::Authentication - WWW::StrawViewer::VideoCategories + WWW::FairViewer::Search + WWW::FairViewer::Videos + WWW::FairViewer::Channels + WWW::FairViewer::Playlists + WWW::FairViewer::ParseJSON + WWW::FairViewer::Activities + WWW::FairViewer::Subscriptions + WWW::FairViewer::PlaylistItems + WWW::FairViewer::CommentThreads + WWW::FairViewer::Authentication + WWW::FairViewer::VideoCategories ); =head1 NAME -WWW::StrawViewer - A very easy interface to YouTube, using the API of invidio.us. +WWW::FairViewer - A very easy interface to YouTube, using the API of invidio.us. =cut -our $VERSION = '0.0.1'; +our $VERSION = '1.0.0'; =head1 SYNOPSIS - use WWW::StrawViewer; + use WWW::FairViewer; - my $yv_obj = WWW::StrawViewer->new(); + my $yv_obj = WWW::FairViewer->new(); ... =head1 SUBROUTINES/METHODS @@ -898,10 +898,10 @@ sub get_streaming_urls { my @video_urls; my @audio_urls; - require WWW::StrawViewer::Itags; + require WWW::FairViewer::Itags; my %audio_itags; - @audio_itags{@{WWW::StrawViewer::Itags->get_itags->{audio}}} = (); + @audio_itags{@{WWW::FairViewer::Itags->get_itags->{audio}}} = (); foreach my $url (@streaming_urls) { @@ -1116,6 +1116,6 @@ EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. =cut -1; # End of WWW::StrawViewer +1; # End of WWW::FairViewer __END__ diff --git a/lib/WWW/StrawViewer/Activities.pm b/lib/WWW/FairViewer/Activities.pm index 39a6a3d..7c80df0 100644 --- a/lib/WWW/StrawViewer/Activities.pm +++ b/lib/WWW/FairViewer/Activities.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Activities; +package WWW::FairViewer::Activities; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Activities - list of channel activity events that match the request criteria. +WWW::FairViewer::Activities - list of channel activity events that match the request criteria. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $activities = $obj->activities($channel_id); =head1 SUBROUTINES/METHODS @@ -75,7 +75,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Activities + perldoc WWW::FairViewer::Activities =head1 LICENSE AND COPYRIGHT @@ -90,4 +90,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Activities +1; # End of WWW::FairViewer::Activities diff --git a/lib/WWW/StrawViewer/Authentication.pm b/lib/WWW/FairViewer/Authentication.pm index 1fa2368..4994f27 100644 --- a/lib/WWW/StrawViewer/Authentication.pm +++ b/lib/WWW/FairViewer/Authentication.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Authentication; +package WWW::FairViewer::Authentication; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Authentication - OAuth login support. +WWW::FairViewer::Authentication - OAuth login support. =head1 SYNOPSIS - use WWW::StrawViewer; - my $hash_ref = WWW::StrawViewer->oauth_login($code); + use WWW::FairViewer; + my $hash_ref = WWW::FairViewer->oauth_login($code); =head1 SUBROUTINES/METHODS @@ -198,7 +198,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Authentication + perldoc WWW::FairViewer::Authentication =head1 LICENSE AND COPYRIGHT @@ -213,4 +213,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Authentication +1; # End of WWW::FairViewer::Authentication diff --git a/lib/WWW/StrawViewer/Channels.pm b/lib/WWW/FairViewer/Channels.pm index b2c2c99..d6c8d49 100644 --- a/lib/WWW/StrawViewer/Channels.pm +++ b/lib/WWW/FairViewer/Channels.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Channels; +package WWW::FairViewer::Channels; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Channels - Channels interface. +WWW::FairViewer::Channels - Channels interface. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $videos = $obj->channels_from_categoryID($category_id); =head1 SUBROUTINES/METHODS @@ -182,7 +182,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Channels + perldoc WWW::FairViewer::Channels =head1 LICENSE AND COPYRIGHT @@ -197,4 +197,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Channels +1; # End of WWW::FairViewer::Channels diff --git a/lib/WWW/StrawViewer/CommentThreads.pm b/lib/WWW/FairViewer/CommentThreads.pm index 1eba143..db8e3ea 100644 --- a/lib/WWW/StrawViewer/CommentThreads.pm +++ b/lib/WWW/FairViewer/CommentThreads.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::CommentThreads; +package WWW::FairViewer::CommentThreads; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::CommentThreads - Retrieve comments threads. +WWW::FairViewer::CommentThreads - Retrieve comments threads. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $videos = $obj->comments_from_video_id($video_id); =head1 SUBROUTINES/METHODS @@ -80,7 +80,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::CommentThreads + perldoc WWW::FairViewer::CommentThreads =head1 LICENSE AND COPYRIGHT @@ -95,4 +95,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::CommentThreads +1; # End of WWW::FairViewer::CommentThreads diff --git a/lib/WWW/StrawViewer/GetCaption.pm b/lib/WWW/FairViewer/GetCaption.pm index 81af4e2..24741b1 100644 --- a/lib/WWW/StrawViewer/GetCaption.pm +++ b/lib/WWW/FairViewer/GetCaption.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::GetCaption; +package WWW::FairViewer::GetCaption; use utf8; use 5.014; @@ -6,13 +6,13 @@ use warnings; =head1 NAME -WWW::StrawViewer::GetCaption - Save the YouTube closed captions as .srt files for a videoID. +WWW::FairViewer::GetCaption - Save the YouTube closed captions as .srt files for a videoID. =head1 SYNOPSIS - use WWW::StrawViewer::GetCaption; + use WWW::FairViewer::GetCaption; - my $yv_cap = WWW::StrawViewer::GetCaption->new(%opts); + my $yv_cap = WWW::FairViewer::GetCaption->new(%opts); print $yv_cap->get_caption($videoID); @@ -134,8 +134,8 @@ Convert the XML data to SubRip format. sub xml2srt { my ($self, $xml) = @_; - require WWW::StrawViewer::ParseXML; - my $hash = eval { WWW::StrawViewer::ParseXML::xml2hash($xml) } // return; + require WWW::FairViewer::ParseXML; + my $hash = eval { WWW::FairViewer::ParseXML::xml2hash($xml) } // return; my $sections; if ( exists $hash->{transcript} @@ -262,7 +262,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::GetCaption + perldoc WWW::FairViewer::GetCaption =head1 LICENSE AND COPYRIGHT @@ -277,4 +277,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::GetCaption +1; # End of WWW::FairViewer::GetCaption diff --git a/lib/WWW/StrawViewer/GuideCategories.pm b/lib/WWW/FairViewer/GuideCategories.pm index 1f164b1..a65670c 100644 --- a/lib/WWW/StrawViewer/GuideCategories.pm +++ b/lib/WWW/FairViewer/GuideCategories.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::GuideCategories; +package WWW::FairViewer::GuideCategories; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::GuideCategories - Categories interface. +WWW::FairViewer::GuideCategories - Categories interface. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $videos = $obj->youtube_categories('US'); =head1 SUBROUTINES/METHODS @@ -67,7 +67,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::GuideCategories + perldoc WWW::FairViewer::GuideCategories =head1 LICENSE AND COPYRIGHT @@ -82,4 +82,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::GuideCategories +1; # End of WWW::FairViewer::GuideCategories diff --git a/lib/WWW/StrawViewer/Itags.pm b/lib/WWW/FairViewer/Itags.pm index 95ed483..3a3f007 100644 --- a/lib/WWW/StrawViewer/Itags.pm +++ b/lib/WWW/FairViewer/Itags.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Itags; +package WWW::FairViewer::Itags; use utf8; use 5.014; @@ -6,13 +6,13 @@ use warnings; =head1 NAME -WWW::StrawViewer::Itags - Get the YouTube itags. +WWW::FairViewer::Itags - Get the YouTube itags. =head1 SYNOPSIS - use WWW::StrawViewer::Itags; + use WWW::FairViewer::Itags; - my $yv_itags = WWW::StrawViewer::Itags->new(); + my $yv_itags = WWW::FairViewer::Itags->new(); my $itags = $yv_itags->get_itags(); my $res = $yv_itags->get_resolutions(); @@ -301,7 +301,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Itags + perldoc WWW::FairViewer::Itags =head1 LICENSE AND COPYRIGHT @@ -316,4 +316,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Itags +1; # End of WWW::FairViewer::Itags diff --git a/lib/WWW/StrawViewer/ParseJSON.pm b/lib/WWW/FairViewer/ParseJSON.pm index e2e7d65..1e2af77 100644 --- a/lib/WWW/StrawViewer/ParseJSON.pm +++ b/lib/WWW/FairViewer/ParseJSON.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::ParseJSON; +package WWW::FairViewer::ParseJSON; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::ParseJSON - Parse JSON content. +WWW::FairViewer::ParseJSON - Parse JSON content. =head1 SYNOPSIS - use WWW::StrawViewer::ParseJSON; - my $obj = WWW::StrawViewer::ParseJSON->new(%opts); + use WWW::FairViewer::ParseJSON; + my $obj = WWW::FairViewer::ParseJSON->new(%opts); =head1 SUBROUTINES/METHODS @@ -58,7 +58,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::ParseJSON + perldoc WWW::FairViewer::ParseJSON =head1 LICENSE AND COPYRIGHT @@ -73,4 +73,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::ParseJSON +1; # End of WWW::FairViewer::ParseJSON diff --git a/lib/WWW/StrawViewer/ParseXML.pm b/lib/WWW/FairViewer/ParseXML.pm index b6039b1..23e01a5 100644 --- a/lib/WWW/StrawViewer/ParseXML.pm +++ b/lib/WWW/FairViewer/ParseXML.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::ParseXML; +package WWW::FairViewer::ParseXML; use utf8; use 5.014; @@ -8,7 +8,7 @@ use warnings; =head1 NAME -WWW::StrawViewer::ParseXML - Convert XML to a HASH ref structure. +WWW::FairViewer::ParseXML - Convert XML to a HASH ref structure. =head1 SYNOPSIS @@ -16,8 +16,8 @@ Parse XML content and return an HASH ref structure. Usage: - use WWW::StrawViewer::ParseXML; - my $hash_ref = WWW::StrawViewer::ParseXML::xml2hash($xml_string); + use WWW::FairViewer::ParseXML; + my $hash_ref = WWW::FairViewer::ParseXML::xml2hash($xml_string); =head1 SUBROUTINES/METHODS @@ -293,7 +293,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::ParseXML + perldoc WWW::FairViewer::ParseXML =head1 LICENSE AND COPYRIGHT @@ -308,4 +308,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::ParseXML +1; # End of WWW::FairViewer::ParseXML diff --git a/lib/WWW/StrawViewer/PlaylistItems.pm b/lib/WWW/FairViewer/PlaylistItems.pm index ab41a0d..767903e 100644 --- a/lib/WWW/StrawViewer/PlaylistItems.pm +++ b/lib/WWW/FairViewer/PlaylistItems.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::PlaylistItems; +package WWW::FairViewer::PlaylistItems; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::PlaylistItems - Manage playlist entries. +WWW::FairViewer::PlaylistItems - Manage playlist entries. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $videos = $obj->videos_from_playlistID($playlist_id); =head1 SUBROUTINES/METHODS @@ -128,7 +128,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::PlaylistItems + perldoc WWW::FairViewer::PlaylistItems =head1 LICENSE AND COPYRIGHT @@ -143,4 +143,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::PlaylistItems +1; # End of WWW::FairViewer::PlaylistItems diff --git a/lib/WWW/StrawViewer/Playlists.pm b/lib/WWW/FairViewer/Playlists.pm index 5d4e07d..2adef54 100644 --- a/lib/WWW/StrawViewer/Playlists.pm +++ b/lib/WWW/FairViewer/Playlists.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Playlists; +package WWW::FairViewer::Playlists; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Playlists - Straw playlists handle. +WWW::FairViewer::Playlists - Fair playlists handle. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $info = $obj->playlist_from_id($playlist_id); =head1 SUBROUTINES/METHODS @@ -106,7 +106,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Playlists + perldoc WWW::FairViewer::Playlists =head1 LICENSE AND COPYRIGHT @@ -121,4 +121,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Playlists +1; # End of WWW::FairViewer::Playlists diff --git a/lib/WWW/StrawViewer/RegularExpressions.pm b/lib/WWW/FairViewer/RegularExpressions.pm index edf9dd5..20d2a99 100644 --- a/lib/WWW/StrawViewer/RegularExpressions.pm +++ b/lib/WWW/FairViewer/RegularExpressions.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::RegularExpressions; +package WWW::FairViewer::RegularExpressions; use utf8; use 5.014; @@ -9,12 +9,12 @@ our @ISA = qw(Exporter); =head1 NAME -WWW::StrawViewer::RegularExpressions - Various utils. +WWW::FairViewer::RegularExpressions - Various utils. =head1 SYNOPSIS - use WWW::StrawViewer::RegularExpressions; - use WWW::StrawViewer::RegularExpressions ($get_video_id_re); + use WWW::FairViewer::RegularExpressions; + use WWW::FairViewer::RegularExpressions ($get_video_id_re); =cut @@ -71,7 +71,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::RegularExpressions + perldoc WWW::FairViewer::RegularExpressions =head1 LICENSE AND COPYRIGHT @@ -86,4 +86,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::RegularExpressions +1; # End of WWW::FairViewer::RegularExpressions diff --git a/lib/WWW/StrawViewer/Search.pm b/lib/WWW/FairViewer/Search.pm index 67b8982..256e605 100644 --- a/lib/WWW/StrawViewer/Search.pm +++ b/lib/WWW/FairViewer/Search.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Search; +package WWW::FairViewer::Search; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Search - Search functions for Straw API v3 +WWW::FairViewer::Search - Search functions for Fair API v3 =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); $obj->search_videos(@keywords); =head1 SUBROUTINES/METHODS @@ -157,7 +157,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Search + perldoc WWW::FairViewer::Search =head1 LICENSE AND COPYRIGHT @@ -172,4 +172,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Search +1; # End of WWW::FairViewer::Search diff --git a/lib/WWW/StrawViewer/Subscriptions.pm b/lib/WWW/FairViewer/Subscriptions.pm index 063a875..eb8add9 100644 --- a/lib/WWW/StrawViewer/Subscriptions.pm +++ b/lib/WWW/FairViewer/Subscriptions.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Subscriptions; +package WWW::FairViewer::Subscriptions; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Subscriptions - Subscriptions handler. +WWW::FairViewer::Subscriptions - Subscriptions handler. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $videos = $obj->subscriptions_from_channelID($channel_id); =head1 SUBROUTINES/METHODS @@ -254,7 +254,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Subscriptions + perldoc WWW::FairViewer::Subscriptions =head1 LICENSE AND COPYRIGHT @@ -269,4 +269,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Subscriptions +1; # End of WWW::FairViewer::Subscriptions diff --git a/lib/WWW/StrawViewer/Utils.pm b/lib/WWW/FairViewer/Utils.pm index 153aab9..5a9296a 100644 --- a/lib/WWW/StrawViewer/Utils.pm +++ b/lib/WWW/FairViewer/Utils.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Utils; +package WWW::FairViewer::Utils; use utf8; use 5.014; @@ -6,13 +6,13 @@ use warnings; =head1 NAME -WWW::StrawViewer::Utils - Various utils. +WWW::FairViewer::Utils - Various utils. =head1 SYNOPSIS - use WWW::StrawViewer::Utils; + use WWW::FairViewer::Utils; - my $yv_utils = WWW::StrawViewer::Utils->new(%opts); + my $yv_utils = WWW::FairViewer::Utils->new(%opts); print $yv_utils->format_time(3600); @@ -783,7 +783,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Utils + perldoc WWW::FairViewer::Utils =head1 LICENSE AND COPYRIGHT @@ -798,4 +798,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Utils +1; # End of WWW::FairViewer::Utils diff --git a/lib/WWW/StrawViewer/VideoCategories.pm b/lib/WWW/FairViewer/VideoCategories.pm index 30e2e6e..2930948 100644 --- a/lib/WWW/StrawViewer/VideoCategories.pm +++ b/lib/WWW/FairViewer/VideoCategories.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::VideoCategories; +package WWW::FairViewer::VideoCategories; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::VideoCategories - videoCategory resource handler. +WWW::FairViewer::VideoCategories - videoCategory resource handler. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $cats = $obj->video_categories(); =head1 SUBROUTINES/METHODS @@ -79,7 +79,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::VideoCategories + perldoc WWW::FairViewer::VideoCategories =head1 LICENSE AND COPYRIGHT @@ -94,4 +94,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::VideoCategories +1; # End of WWW::FairViewer::VideoCategories diff --git a/lib/WWW/StrawViewer/Videos.pm b/lib/WWW/FairViewer/Videos.pm index 11bf60b..3e44b52 100644 --- a/lib/WWW/StrawViewer/Videos.pm +++ b/lib/WWW/FairViewer/Videos.pm @@ -1,4 +1,4 @@ -package WWW::StrawViewer::Videos; +package WWW::FairViewer::Videos; use utf8; use 5.014; @@ -6,12 +6,12 @@ use warnings; =head1 NAME -WWW::StrawViewer::Videos - videos handler. +WWW::FairViewer::Videos - videos handler. =head1 SYNOPSIS - use WWW::StrawViewer; - my $obj = WWW::StrawViewer->new(%opts); + use WWW::FairViewer; + my $obj = WWW::FairViewer->new(%opts); my $info = $obj->video_details($videoID); =head1 SUBROUTINES/METHODS @@ -75,7 +75,7 @@ sub trending_videos_from_category { my $results = do { local $self->{publishedAfter} = do { - state $yv_utils = WWW::StrawViewer::Utils->new; + state $yv_utils = WWW::FairViewer::Utils->new; $yv_utils->period_to_date(1, 'w'); } if !defined($self->get_publishedAfter); local $self->{videoCategoryId} = $cat_id; @@ -212,7 +212,7 @@ Trizen, C<< <echo dHJpemVuQHByb3Rvbm1haWwuY29tCg== | base64 -d> >> You can find documentation for this module with the perldoc command. - perldoc WWW::StrawViewer::Videos + perldoc WWW::FairViewer::Videos =head1 LICENSE AND COPYRIGHT @@ -227,4 +227,4 @@ See L<http://dev.perl.org/licenses/> for more information. =cut -1; # End of WWW::StrawViewer::Videos +1; # End of WWW::FairViewer::Videos |