package MetaParser;

use strict;
use LWP::Simple;

sub new
{
   my $pkg = shift;
   my $obj  = {@_};

    $obj = bless {%$obj},$pkg || die 'unable to bless object!';
   return $obj;
}

sub getc
{
   my $obj = shift;
   my $url = shift;
   my $content = get($url);

   return $content;

}

sub meta
{

   my $obj = shift;
   my $url = shift;
   my $content = get($url);
     die "Error retriving $url" unless defined $content;

   my @content_lines = split(/\n/, $content);     # let's make a gigantic string with all the
   my $single_line = join("", @content_lines);   # lines of HTML on one line. Come on, it'll be fun

   my %meta;

   # <meta name = "name" content = "content" \>
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+name\s*=\s*"([^"]+)"\s*content\s*=\s*"([^"]+)"\s*\/>/gi;
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+name\s*=\s*"([^"]+)"\s*content\s*=\s*"([^"]+)"\s*>/gi;

   # <meta name = 'name' content = 'content' \>
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+name\s*=\s*'([^']+)'\s*content\s*=\s*'([^']+)'\s*\/>/gi;
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+name\s*=\s*'([^']+)'\s*content\s*=\s*'([^']+)'\s*>/gi;

   # <meta http-equiv = "name" content = "content" \>
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+http-equiv\s*=\s*"([^"]+)"\s*content=\s*"([^"]+)"\s*\/>/gi;
   $meta{$1} = $2 while  $single_line =~ m/<meta\s+http-equiv\s*=\s*"([^"]+)"\s*content=\s*"([^"]+)"\s*>/gi;

   # <meta content = "content" name = "name" \>
   $meta{$2} = $1 while  $single_line =~ m/<meta\s+content\s*=\s*"([^"]+)"\s*name\s*=\s*"([^"]+)"\s*\/>/gi;
   $meta{$2} = $1 while  $single_line =~ m/<meta\s+content\s*=\s*"([^"]+)"\s*name\s*=\s*"([^"]+)"\s*>/gi;

   # <meta content = 'content' name = 'name' \>
   $meta{$2} = $1 while  $single_line =~ m/<meta\s+content\s*=\s*'([^']+)'\s*name\s*=\s*'([^']+)'\s*\/>/gi;
   $meta{$2} = $1 while  $single_line =~ m/<meta\s+content\s*=\s*'([^']+)'\s*name\s*=\s*'([^']+)'\s*>/gi;



   return %meta;
}
1;