1 package HTML::Zoom::ZConfig;
6 parser => 'HTML::Zoom::Parser::BuiltIn',
7 producer => 'HTML::Zoom::Producer::BuiltIn',
8 filter_builder => 'HTML::Zoom::FilterBuilder',
9 selector_parser => 'HTML::Zoom::SelectorParser',
10 stream_utils => 'HTML::Zoom::StreamUtils',
16 my ($class, $args) = @_;
17 return $ALL_DEFAULT if $ALL_DEFAULT && !keys %{$args||{}};
19 foreach my $arg_name (keys %DEFAULTS) {
20 $new->{$arg_name} = $args->{$arg_name} || $DEFAULTS{$arg_name};
21 if (ref($new->{$arg_name})) {
22 $new->{$arg_name} = $new->{$arg_name}->with_zconfig($new);
24 require(do { (my $m = $new->{$arg_name}) =~ s/::/\//g; "${m}.pm" });
25 $new->{$arg_name} = $new->{$arg_name}->new({ zconfig => $new });
28 $ALL_DEFAULT = $new if !keys %{$args||{}};
32 sub parser { shift->{parser} }
33 sub producer { shift->{producer} }
34 sub filter_builder { shift->{filter_builder} }
35 sub selector_parser { shift->{selector_parser} }
36 sub stream_utils { shift->{stream_utils} }