Untested:

 $args($_) ? $self->$_($args{$_}) : $self->$_ or die "Missing variable
+ $_"
    for qw|resource username|;
[download]

Just use "$self-><Varname>" instead of the lexically defined var names for the rest of the sub.