Browse Source

* Subtitle::SSA::Style : rename variable

master
Alex 'AdUser' Z 8 years ago
parent
commit
25caaab39b
  1. 6
      lib/Subtitle/SSA/Style.pm

6
lib/Subtitle/SSA/Style.pm

@ -11,7 +11,7 @@ use overload => (
my @FIELDS_SSA = qw(name fontname fontsize primarycolour secondarycolour outlinecolour backcolour bold italic underline strikeout scalex scaley spacing angle borderstyle outline shadow alignment marginl marginr marginv encoding); # FIXME: copypaste
my @FIELDS_ASS = qw(name fontname fontsize primarycolour secondarycolour outlinecolour backcolour bold italic underline strikeout scalex scaley spacing angle borderstyle outline shadow alignment marginl marginr marginv encoding);
my %STYLE_DEFAULTS = (
my %FIELDS = (
# format: string
name => { type => 's', value => 'Default', name => 'Name' },
fontname => { type => 's', value => 'Arial' , name => 'Fontname' },
@ -54,7 +54,7 @@ sub new {
my @fields = $self->fields();
foreach my $field (@fields) {
$self->{$field} = ($opts{defaults})
? $STYLE_DEFAULTS{$field}->{value}
? $FIELDS{$field}->{value}
: undef;
}
@ -103,7 +103,7 @@ sub to_string {
my $string = "Style: ";
my @values = ();
foreach my $field (@fields) {
my $d = $STYLE_DEFAULTS{$field};
my $d = $FIELD{$field};
my $v = $self->{$f} // $d->{value};
if ($d->{type} eq 'x') {
$fmt = ($self->{_vers} eq 'ass') ? '&H%08X' : '%d';

Loading…
Cancel
Save