Catch unmatched "[" in selector parser with a helpful error

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / ZConfig.pm

package HTML::Zoom::ZConfig;

use strict;
use warnings FATAL => 'all';

my %DEFAULTS = (
  parser => 'HTML::Zoom::Parser::BuiltIn',
  producer => 'HTML::Zoom::Producer::BuiltIn',
  filter_builder => 'HTML::Zoom::FilterBuilder',
  selector_parser => 'HTML::Zoom::SelectorParser',
  stream_utils => 'HTML::Zoom::StreamUtils',
);

my $ALL_DEFAULT;

sub new {
  my ($class, $args) = @_;
  return $ALL_DEFAULT if $ALL_DEFAULT && !keys %{$args||{}};
  my $new = {};
  foreach my $arg_name (keys %DEFAULTS) {
    $new->{$arg_name} = $args->{$arg_name} || $DEFAULTS{$arg_name};
    if (ref($new->{$arg_name})) {
      $new->{$arg_name} = $new->{$arg_name}->with_zconfig($new);
    } else {
      require(do { (my $m = $new->{$arg_name}) =~ s/::/\//g; "${m}.pm" });
      $new->{$arg_name} = $new->{$arg_name}->new({ zconfig => $new });
    }
  }
  $ALL_DEFAULT = $new if !keys %{$args||{}};
  bless($new, $class);
}

sub parser { shift->{parser} }
sub producer { shift->{producer} }
sub filter_builder { shift->{filter_builder} }
sub selector_parser { shift->{selector_parser} }
sub stream_utils { shift->{stream_utils} }

1;