package Hotfile;
# Perl->Hotfile API
use strict;
use warnings;
use LWP::UserAgent; 

our $HFA_VERSION = 0.1;                                                     # Perlmodul Version
our $HFA_WHO = "Hotfile-PerlAPI/$HFA_VERSION";                              # UserAgent-Name

sub new {                                         
  my $class = shift;
  my $self={};

  $self->{_LWP}=LWP::UserAgent->new();
  $self->{_content}=undef;

  $self->{_LWP}->agent($HFA_WHO); 
  return bless $self, $class;
}

sub LWP {
  return $_[0]->{_LWP};
}

sub content {
  return $_[0]->{_content} || '';
}

sub _set_content {
  my $self=shift;
  my $content=shift;
  $self->{_content}=$content;
}

sub link_status {
  my $self    = shift;
  my $url     = shift || '';

  my $browser = $self->LWP();
  my $resp    = $browser->get("http://api.hotfile.com/?action=checklinks&links=$url&fields=status");
  my $status  = $resp->is_success();

  $self->_set_content($status?$resp->decoded_content():undef);

  return $status;
}
1;