# aliasing for Steve's method names
sub hit_length { shift->length(@_) }

if(_457==2){
_45f+=" and string-length(@class)="+_45d+"]";
}else{

if(_414==2){
_41c+=" and string-length(@class)="+_41a+"]";
}else{

if(_1b9==2){
_1c1+=" and string-length(@class)="+_1bf+"]";
}else{

=head2 RFC 212: Make C<length(@array)> Work

Here's an oddity, an RFC that the author retracted, but that I accept,
more or less. I think C<length(@array)> should be equivalent to
C<@array.length()>, so if there's a C<length> method available, it

	$this->{top_line}++ if ($cl-$this->{top_line}) == $this->{rows}-1;      # scroll
	$this->{cursor} += length(@{$this->{text_array}}[$cl])-$cc;
	if ( length(@{$this->{text_array}}[$cl+1])-1 >= $cc ) {

	$this->{cursor} += length(@{$this->{text_array}}[$cl])-$cc;
	if ( length(@{$this->{text_array}}[$cl+1])-1 >= $cc ) {
	    $this->{cursor} += $cc;

	else {
	    $this->{cursor} += length(@{$this->{text_array}}[$cl+1])-1;
	}

      '^=': "[starts-with(@#{1}, '#{3}')]",
      '$=': "[substring(@#{1}, (string-length(@#{1}) - string-length('#{3}') + 1))='#{3}']",
      '*=': "[contains(@#{1}, '#{3}')]",

  <xsl:choose>
    <xsl:when test='string-length(@section) and not( string-length(@page) )'>
      <xsl:choose>

  <xsl:choose>
    <xsl:when test='string-length(@section) and not( string-length(@page) )'>
      <xsl:choose>

						</xsl:when>
						<xsl:when test="string-length(@title) = 2 and substring(@title,2,1) = ':'">
							<xsl:text>/icons/__network_drive.png</xsl:text>

						</xsl:when>
						<xsl:when test="string-length(@title) = 2 and substring(@title,2,1) = ':'">
							<xsl:text>Network Drive</xsl:text>

    $foo = length(@bar);
    $foo = @bar;

  multi sub length ()          returns Int { 0               }
  multi sub length (*$x, *@xs) returns Int { 1 + length(@xs) }

/a>166</td><td></td><td></td><td></td><td></td><td class="s">            for (my $ix = 0; $ix &lt;= length(@$data) -1 ; $ix += 2) {</td></tr>
<tr><td class="h"><a name="167"></a>167</td><td></td><td></td><td>

  if (length(@left_bytes) != length(@right_bytes)) {
    return 0;

  if (length(@left_bytes) != length(@right_bytes)) {
    return 0;

  my $result = 0;
  for (my $i = 0; $i < length(@left_bytes); $i++) {
    $result |= $left_bytes[$i] ^ $right_bytes[$i];

  <xsl:choose>
    <xsl:when test='string-length(@section) and not( string-length(@page) )'>
      <a href="#{@section}"><xsl:apply-templates mode="pod"/></a>

  <xsl:choose>
    <xsl:when test='string-length(@section) and not( string-length(@page) )'>
      <a href="#{@section}"><xsl:apply-templates mode="pod"/></a>

my $layer_via_class = sub {
    PerlIO::via::Limit->length(@_);
    "<:via(Limit)";

tarts-with(@"+attr+", '"+_31c+"')]";},"$=":function(attr,_31e){return "[substring(@"+attr+", string-length(@"+attr+")-"+(_31e.length-1)+")='"+_31e+"']";},"~=":function(attr,_320){return "[contains(concat(' ',

		my $result;
		eval {$result = ( $expected->validate(@$got ? length(@$got): 0) ? 1 : Test::Proto::Base::fail ("$expected != length(@$got)") )};
		return Test::Proto::Base::exception($@) if $@;

		my $result;
		eval {$result = ( $expected->validate(@$got ? length(@$got): 0) ? 1 : Test::Proto::Base::fail ("$expected != length(@$got)") )};
		return Test::Proto::Base::exception($@) if $@;

    is(&$fn('[a^="b"]'), '[starts-with(@a,"b")]');
    is(&$fn('[a$="b"]'), '[substring(@a,string-length(@a)-0,1)="b"]');
    is(&$fn('[a$="\"b\""]'), '[substring(@a,string-length(@a)-2,3)="\"b\""]');

    is(&$fn('[a$="b"]'), '[substring(@a,string-length(@a)-0,1)="b"]');
    is(&$fn('[a$="\"b\""]'), '[substring(@a,string-length(@a)-2,3)="\"b\""]');
    is(&$fn('[a*="b"]'), '[contains(@a,"b")]');

    *bytelength = eval('use bytes; 1') # 5.6.0 and later?
        ? sub { use bytes; length(@_ ? $_[0] : $_) }
        : sub { length(@_ ? $_[0] : $_) };

        ? sub { use bytes; length(@_ ? $_[0] : $_) }
        : sub { length(@_ ? $_[0] : $_) };
}

tarts-with(@"+attr+", '"+_342+"')]";},"$=":function(attr,_344){return "[substring(@"+attr+", string-length(@"+attr+")-"+(_344.length-1)+")='"+_344+"']";},"~=":function(attr,_346){return "[contains(concat(' ',

ssert test="@name">A page element must contain a name attribute.</assert> 
    <report test="string-length(@name) &lt; 5">A page element name attribute must be at least 5 characters long.</report> 
   </rule>

### OBSOLETE!!!
sub data_length     { shift->data->length(@_) }
sub resource_length { shift->resource->length(@_) }

sub data_length     { shift->data->length(@_) }
sub resource_length { shift->resource->length(@_) }

    if (length(@userdns) == 0) {
    Kolab::log('AD', 'No user DNs specified, exiting', KOLAB_ERROR);

        # Do we have a value?
        if length(@lines[0]) {
            # Yes

      '^=': "[starts-with(@#{1}, '#{3}')]",
      '$=': "[substring(@#{1}, (string-length(@#{1}) - string-length('#{3}') + 1))='#{3}']",
      '*=': "[contains(@#{1}, '#{3}')]",

		
		if (length(@$desc) > 0){
	

    my $self = $_[0];
    if ( length(@{ $self->{container}}) <= $self->{pointer} ) {
        return;