File Coverage

blib/lib/FlashVideo/VideoPreferences/Account.pm

Criterion	Covered	Total	%
statement	3	27	11.1
branch	0	8	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	3	0.0
total	4	42	9.5

# Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::VideoPreferences::Account;

use strict;

sub new {
  my($class, $site, $prompt) = @_;

  require Net::Netrc; # Core since 5.8

  my $record = Net::Netrc->lookup($site);
  my($user, $pass) = $record ? $record->lpa : ();

  # Allow only setting user in .netrc if wanted

  if(!$user) {
    print $prompt;

    print "Username: ";
    chomp($user = );
  }

  if(!$pass) {
    print "Ok, need your password";
    if(eval { require Term::ReadKey }) {
      print ": ";
      Term::ReadKey::ReadMode(2);
      chomp($pass = );
      Term::ReadKey::ReadMode(0);
      print "\n";
    } else {
      print " (will be displayed): ";
      chomp($pass = );
    }
  }

  return bless {
    username => $user,
    password => $pass,
  }, $class;
}

sub username {
  my($self) = @_;
  return $self->{username};
}

sub password {
  my($self) = @_;
  return $self->{password};
}

1;