17 lines
333 B
Perl
17 lines
333 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use lib '../lib';
|
||
|
|
|
||
|
|
use Data::Dump qw% dump %;
|
||
|
|
use YTYT;
|
||
|
|
|
||
|
|
my %params;
|
||
|
|
|
||
|
|
# Simply initializing the object will create the DB. This is only needed for the PHP application
|
||
|
|
if (my $youtube = YTYT::new( host => 'www.youtube.com' )) {
|
||
|
|
print "Success\n";
|
||
|
|
} else {
|
||
|
|
print "Failed\n";
|
||
|
|
}
|