Remove use of indirect object notation

autogen/compilers/compile.pl

@@ -64,7 +64,7 @@
 
 do $OPT{cfgfile};
 
-my $c = new Convert::Binary::C %config;
+my $c = Convert::Binary::C->new(%config);
 
 $c->parse_file('test.h');
 
@@ -86,7 +86,7 @@
            "$1$suf";
          /ge;
 
-my $cc  = new Compiler::Config %OPT, ccflags => [@ARGV];
+my $cc  = Compiler::Config->new(%OPT, ccflags => [@ARGV]);
 # my $cfg = $cc->get_config;
 
 my $bin = $cc->_test_type($c->sourcify, 'test', $init, $c->sizeof('test'));
@@ -411,7 +411,7 @@ sub check_config
 
   $self->{debug} and import Convert::Binary::C debug => 'all';
 
-  my $c = eval { new Convert::Binary::C };
+  my $c = eval { Convert::Binary::C->new };
   $@ and return {code => ERR_CREATE};
 
   eval { $c->configure( %$config ) };
@@ -888,7 +888,7 @@ sub _test_type
   my $res = $self->_compile_temp;
   $res->{status} and return undef;
 
-  my $fh = new IO::File $self->{obj} or return undef;
+  my $fh = IO::File->new($self->{obj}) or return undef;
   binmode $fh;
 
   my $obj = do { local $/; <$fh> };
@@ -1977,7 +1977,7 @@ sub _names
     $files{$file} = 1;
     $ff = keys %files;
     $self->_work_in_progress( "$ff files found" );
-    my $fh = new IO::File $file;
+    my $fh = IO::File->new($file);
     next unless defined $fh;
     while( <$fh> ) {
       if( /^\s*#\s*include\s*[<"]([^>"]+)[>"]/ ) {
@@ -1999,7 +1999,7 @@ sub _names
     $fs++;
     $self->_work_in_progress( "($count) $fs/$ff files scanned" );
     -e $name or next;
-    my $fh = new IO::File $name;
+    my $fh = IO::File->new($name);
     next unless defined $fh;
     my $file = do { local $/; <$fh> };
     $file =~ s{\\\s*$/}{}g;
@@ -2240,7 +2240,7 @@ sub _temp
     unlink $self->{temp}
       or croak "Could not remove temporary file '$self->{temp}': $!\n";
   }
-  my $f = new IO::File ">$self->{temp}";
+  my $f = IO::File->new(">$self->{temp}");
   defined $f
     or croak "Could not open temporary file '$self->{temp}': $!\n";
   $f->print( @_ );

autogen/complex/footer.pl

@@ -152,14 +152,14 @@ sub checkrc
   }
 }
 
-my $p = new Convert::Binary::C ByteOrder   => 'LittleEndian',
-                               ShortSize   => 2,
-                               IntSize     => 4,
-                               LongSize    => 4,
-                               PointerSize => 4,
-                               FloatSize   => 4,
-                               DoubleSize  => 8,
-                               Alignment   => 4;
+my $p = Convert::Binary::C->new(ByteOrder   => 'LittleEndian',
+                                ShortSize   => 2,
+                                IntSize     => 4,
+                                LongSize    => 4,
+                                PointerSize => 4,
+                                FloatSize   => 4,
+                                DoubleSize  => 8,
+                                Alignment   => 4);
 
 $p->parse($types);
 

autogen/doc/Pod/Tree/MyHTML.pm

@@ -61,7 +61,7 @@ sub _resolve_source
 
     isa $source, 'Pod::Tree' and return $source;
 
-    my $tree = new Pod::Tree;
+    my $tree = Pod::Tree->new;
     not $ref		    and $tree->load_file      ( $source);
     isa $source, 'IO::File' and $tree->load_fh	      ( $source);
     $ref eq 'SCALAR'        and $tree->load_string    ($$source);
@@ -80,11 +80,11 @@ sub _resolve_dest
     local *isa = \&UNIVERSAL::isa;
 
     isa $dest, 'HTML::Stream' and return 		  $dest;
-    ref $dest 		      and return new HTML::Stream $dest;
+    ref $dest 		      and return HTML::Stream->new($dest);
 
-    my $fh = new IO::File;
+    my $fh = IO::File->new;
     $fh->open(">$dest") or die "Pod::Tree::MyHTML::new: Can't open $dest: $!\n";
-    new HTML::Stream $fh
+    HTML::Stream->new($fh)
 }
 
 

autogen/doc/clone.pl

@@ -2,14 +2,14 @@
 
 #-8<-
 
-$c = new Convert::Binary::C Include => ['/usr/include'];
+$c = Convert::Binary::C->new(Include => ['/usr/include']);
 $c->parse_file('definitions.c');
 $clone = $c->clone;
 
 #-8<-
 
-$c = new Convert::Binary::C Include => ['/usr/include'];
+$c = Convert::Binary::C->new(Include => ['/usr/include']);
 $c->parse_file('definitions.c');
-$clone = new Convert::Binary::C %{$c->configure};
+$clone = Convert::Binary::C->new(%{$c->configure});
 $clone->parse($c->sourcify);
 

autogen/doc/compound.pl

@@ -2,7 +2,7 @@
 use Data::Dumper;
 $Data::Dumper::Indent = 1;
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 $c->parse_file('definitions.c');
 
 #-8<-

autogen/doc/compound_alignment.pl

@@ -2,7 +2,7 @@
 use Data::Dumper;
 $Data::Dumper::Indent = 0;
 
-$c = new Convert::Binary::C Alignment => 4, CompoundAlignment => 4;
+$c = Convert::Binary::C->new(Alignment => 4, CompoundAlignment => 4);
 
 #-8<-
 

autogen/doc/configure.pl

@@ -3,8 +3,8 @@
 use vars qw( $order ); #-8<-
 $Data::Dumper::Indent = 1; #-8<-
 
-$c = new Convert::Binary::C Define  => ['DEBUGGING', 'FOO=123'],
-                            Include => ['/usr/include'];
+$c = Convert::Binary::C->new(Define  => ['DEBUGGING', 'FOO=123'],
+                             Include => ['/usr/include']);
 
 print Dumper($c->configure);
 
@@ -29,7 +29,7 @@
 
 #-8<- 6
 
-$c = new Convert::Binary::C Include => ['/include'];
+$c = Convert::Binary::C->new(Include => ['/include']);
 $c->Include('/usr/include', '/usr/local/include');
 print Dumper($c->Include);
 

autogen/doc/enum.pl

@@ -2,7 +2,7 @@
 use Data::Dumper;
 $Data::Dumper::Indent = 1;
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 $c->parse_file('definitions.c');
 
 #-8<-

autogen/doc/enum_names.pl

@@ -2,7 +2,7 @@
 use Data::Dumper;
 $Data::Dumper::Indent = 0;
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 
 #-8<-
 

autogen/doc/hooks3.pl

@@ -218,7 +218,7 @@
 
 use Config;
 
-$c = new Convert::Binary::C %CC, OrderMembers => 1;
+$c = Convert::Binary::C->new(%CC, OrderMembers => 1);
 $c->Include(["$Config{archlib}/CORE", @{$c->Include}]);
 $c->parse(<<ENDC);
 #include "EXTERN.h"

autogen/doc/intro.pl

@@ -6,7 +6,7 @@
 
 #-8<-
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 
 #-8<-
 
@@ -15,8 +15,8 @@
 
 #-8<-
 
-$c = new Convert::Binary::C ByteOrder => 'LittleEndian',
-                            Alignment => 2;
+$c = Convert::Binary::C->new(ByteOrder => 'LittleEndian',
+                             Alignment => 2);
 
 #-8<-
 

autogen/doc/keywords.pl

@@ -11,7 +11,7 @@
 
 close FILE;
 
-my $c = new Convert::Binary::C;
+my $c = Convert::Binary::C->new;
 my @kw;
 
 for my $k (sort keys %h) {

autogen/doc/parse_file.pl

@@ -1,6 +1,6 @@
 use Convert::Binary::C;
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 
 #-8<-
 $c->parse(<<'#-8<-');

autogen/doc/pdf/Pod/MyLaTeX.pm

@@ -1117,7 +1117,7 @@ sub interior_sequence {
 
   } elsif ($seq_command eq 'L') {
 
-    my $link = new Pod::Hyperlink($seq_argument);
+    my $link = Pod::Hyperlink->new($seq_argument);
 
     # undef on failure
     unless (defined $link) {
@@ -1161,7 +1161,7 @@ sub interior_sequence {
   } elsif ($seq_command eq 'P') {
     print "[$seq_argument]\n";
     if( exists $self->{KnownPODs}{$seq_argument} ) {
-      my $link = new Pod::Hyperlink($seq_argument);
+      my $link = Pod::Hyperlink->new($seq_argument);
 
       # undef on failure
       unless (defined $link) {
@@ -1232,7 +1232,7 @@ sub begin_list {
 
   # Indicate that a list should be started for the next item
   # need to do this to work out the type of list
-  push ( @{$self->lists}, new Pod::List(-indent => $indent, 
+  push ( @{$self->lists}, Pod::List->new(-indent => $indent, 
 					-start => $line_num,
 					-file => $self->input_file,
 				       )	 

autogen/doc/pdf/Pod/ParseUtils.pm

@@ -21,7 +21,7 @@ Pod::ParseUtils - helpers for POD parsing and conversion
 
   use Pod::ParseUtils;
 
-  my $list = new Pod::List;
+  my $list = Pod::List->new;
   my $link = Pod::Hyperlink->new('Pod::Parser');
 
 =head1 DESCRIPTION

autogen/doc/preprocessor.pl

@@ -1,5 +1,5 @@
 use Convert::Binary::C;
-$c = new Convert::Binary::C Alignment => 4;
+$c = Convert::Binary::C->new(Alignment => 4);
 
 #-8<-
 

autogen/doc/reconfig.pl

@@ -1,6 +1,6 @@
 use Convert::Binary::C;
 
-$c = new Convert::Binary::C Alignment => 4, IntSize => 4;
+$c = Convert::Binary::C->new(Alignment => 4, IntSize => 4);
 
 #-8<-
 $c->parse(<<'#-8<-');

autogen/doc/sourcify.pl

@@ -1,6 +1,6 @@
 use Convert::Binary::C;
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 $c->parse(<<'END');
 
 #define ADD(a, b) ((a) + (b))

autogen/doc/synopsis_advanced.pl

@@ -4,7 +4,7 @@
 #---------------------
 # Create a new object
 #---------------------
-my $c = new Convert::Binary::C ByteOrder => 'BigEndian';
+my $c = Convert::Binary::C->new(ByteOrder => 'BigEndian');
 
 #---------------------------------------------------
 # Add include paths and global preprocessor defines

autogen/doc/types.pl

@@ -7,7 +7,7 @@
 typedef int foo;
 #-8<-
 
-$c = new Convert::Binary::C;
+$c = Convert::Binary::C->new;
 $size = $c->sizeof('unsigned long');
 $data = $c->pack('short int', 42);
 

autogen/ppsym/ppsym.pl

@@ -71,7 +71,7 @@ END
 sub getsym
 {
   /\.h$/ or return;
-  my $fh = new IO::File $_ or return;
+  my $fh = IO::File->new($_) or return;
   my $file = do { local $/; <$fh> };
   my $id = '[a-zA-Z_]\w*';
 

autogen/sizes/mkoffsets.pl

@@ -5,7 +5,7 @@
 my $cfg = require '../../tests/include/config.pl';
 s!^tests!../../tests! for @{$cfg->{Include}};
 
-my $c = new Convert::Binary::C %$cfg;
+my $c = Convert::Binary::C->new(%$cfg);
 
 $c->parse_file( '../../tests/include/include.c' );
 

autogen/sizes/mksizes.pl

@@ -5,7 +5,7 @@
 my $cfg = require '../../tests/include/config.pl';
 s!^tests!../../tests! for @{$cfg->{Include}};
 
-my $c = new Convert::Binary::C %$cfg;
+my $c = Convert::Binary::C->new(%$cfg);
 
 $c->parse_file( '../../tests/include/include.c' );
 

devel/bench.pl

@@ -44,7 +44,7 @@
   Include      => ['tests/include/perlinc', 'tests/include/include'],
 );
 
-my $c = new Convert::Binary::C;
+my $c = Convert::Binary::C->new;
 
 for my $k (keys %config) {
   eval { $c->configure($k => $config{$k}) };

devel/test.pl

@@ -6,11 +6,11 @@
 
 my $code = do { local $/; <DATA> };
 
-my $p = new Convert::Binary::C ByteOrder   => 'BigEndian',
-                               IntSize     => 4,
-                               PointerSize => 4,
-                               EnumSize    => 0,
-                               Alignment   => 4;
+my $p = Convert::Binary::C->new(ByteOrder   => 'BigEndian',
+                                IntSize     => 4,
+                                PointerSize => 4,
+                                EnumSize    => 0,
+                                Alignment   => 4);
 
 $p->parse( $code );
 

devel/test2.pl

@@ -6,12 +6,12 @@
 
 my $code = do { local $/; <DATA> };
 
-my $p = new Convert::Binary::C ByteOrder   => 'BigEndian',
-                               IntSize     => 4,
-                               PointerSize => 4,
-                               EnumSize    => 0,
-                               Warnings    => 1,
-                               Alignment   => 4;
+my $p = Convert::Binary::C->new(ByteOrder   => 'BigEndian',
+                                IntSize     => 4,
+                                PointerSize => 4,
+                                EnumSize    => 0,
+                                Warnings    => 1,
+                                Alignment   => 4);
 
 $p->parse( $code );
 

devel/test3.pl

@@ -8,7 +8,7 @@
   /usr/include
 );
 
-my $p = new Convert::Binary::C Include => [@inc];
+my $p = Convert::Binary::C->new(Include => [@inc]);
 
 $p->parse( <<'ENDC' );
 #include <stdio.h>

devel/test5.pl

@@ -6,7 +6,7 @@
 
 my $code = do { local $/; <DATA> };
 
-my $p = new Convert::Binary::C;
+my $p = Convert::Binary::C->new;
 $p->parse( $code );
 
 print Data::Dumper->Dump( [[$p->enum],[$p->struct],[$p->typedef]],