comment on

Nice. If I add some other possibilities:

  PerlSubCall => sub {
    my $c = PerlMethods->new;
    for (1..100) {
      $x = PerlMethods::x($c); $y = PerlMethods::y($c);
    }
  },
  cSubCall => sub {
    my $c = CMethods->new;
    for (1..100) {
      $x = CMethods::x($c); $y = CMethods::y($c);
    }
  },
  Direct => sub {
    my $c = PerlMethods->new;
    for (1..100) {
      $x = $c->{x}; $y = $c->{y};
    },
  Fields => sub {
    my UsingFields $c = UsingFields->new;
    for (1..100) {
      $x = $c->{x}; $y = $c->{y};
    }
  }
[download]

I get these results:

              Rate PerlMethods PerlSubCall cMethods cSubCall    Direct
+    Fields
PerlMethods 1875/s          --         -4%     -64%     -72%      -80%
+      -80%
PerlSubCall 1951/s          4%          --     -62%     -70%      -79%
+      -80%
cMethods    5160/s        175%        164%       --     -22%      -44%
+      -46%
cSubCall    6596/s        252%        238%      28%       --      -29%
+      -31%
Direct      9242/s        393%        374%      79%      40%        --
+       -4%
Fields      9597/s        412%        392%      86%      45%        4%
+        --
[download]

which (unsurprisingly) shows that, if you need a massive speedup, there's no alternative to accessing the members directly. For a final iota of speed you can use the fields mechanism: the UsingFields.pm module is:

package UsingFields;
use strict;
use fields qw(x y);

sub new {
  my ($pckg, $x, $y) = @_;
  
  my $self = fields::new($pckg);
  $self->{x} = $x; $self->{y} = $y;
  
  return bless $self, $pckg;
}


sub x {
  my ($self) = @_;
  
  return $self->{x};
}


sub y {
  my ($self) = @_;
  
  return $self->{y};
}

1;
[download]

Update: Be warned that fields no longer gives any speedup with the development version of perl, and won't in 5.10 either.

In reply to Re^2: Accessors in xs by robin
in thread Accessors in xs by hardburn

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Welcome to the Monastery
	PerlMonks