get FTLocFac working

cjfields · Jan 10, 2014 · a9c0280 · a9c0280
1 parent b01886e
commit a9c0280
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Biome/Factory/FTLocationFactory.pm b/lib/Biome/Factory/FTLocationFactory.pm
@@ -84,7 +84,7 @@ sub from_string {
                         $loc_obj = $self->_parse_range($splitlocs[0]);
                         $loc_obj->strand(-1);
                     } else {
-                        $loc_obj = $LOC_CLASS->new(-location_type => uc $oparg);
+                        $loc_obj = $LOC_CLASS->new(location_type => uc $oparg);
                         my @loc_objs = map {
                                 my $sobj;
                                 if (m{\(($LOCREG)\)}) {

diff --git a/t/Factory/FTLocationFactory.t b/t/Factory/FTLocationFactory.t
@@ -117,7 +117,7 @@ my %testcases = (
         => [0,  undef, undef, 'EXACT', undef, undef, 'EXACT', 'ORDER', 3, 0, undef],
           );
 
-my $locfac = Biome::Factory::FTLocationFactory->new(-verbose => 1);
+my $locfac = Biome::Factory::FTLocationFactory->new(verbose => 1);
 
 # sorting is to keep the order constant from one run to the next
 foreach my $locstr (keys %testcases) {