Source

shlomi-fish-homepage / bin / gen-css.pl

Diff from to

bin/gen-css.pl

 use warnings;
 use strict;
 
-use base 'Template::Preprocessor::TTML::Base';
+use base 'Class::Accessor';
 
 use Template;
 use Template::Preprocessor::TTML::CmdLineProc;
 
 =head1 FUNCTIONS
 
-=head2 initialize()
-
-Internal function for initializing the object.
-
 =cut
 
-sub initialize
-{
-    my $self = shift;
-    my %args = (@_);
-    $self->argv([@{$args{'argv'}}]);
-
-    return 0;
-}
-
 =head2 run
 
 Performs the processing.
 
 package main;
 
-Template::Preprocessor::TTML->new('argv' => [@ARGV])->run();
+Template::Preprocessor::TTML->new({'argv' => [@ARGV]})->run();