view release on metacpan or  search on metacpan

examples/group-by.pl  view on Meta::CPAN

		],
		[
			'State', 'Country'
		],
	],
	'formula'  => [
		[
			{ field => 'Revenue', formula => 'SUM of'},
			{ field => 'Expenses', formula => 'SUM of'},
			{ field => 'Margin', formula => 'AVG of'},
			{ field => 'Sales', formula => 'SUM of'},
		],
		[
			{ field => 'Costs', formula => 'SUM of'},
			{ field => 'Price', formula => 'AVG of'},
		],
	]
});
$groupby->signal_connect( 'changed' => 
	sub {

examples/group-by.pl  view on Meta::CPAN

sub _make_sql {
	my ($model, $table) = @_;
	print Dumper $model;
	my @group;
	my @formula;
	foreach my $x (@{$model->{'groupby'}->[0]}) {
		push @group, $x;
	}
	foreach my $x (@{$model->{'formula'}->[0]}) {
		my $f = $x->{'formula'};
		$f =~ s/ of$//;
		push @formula, $f.'('.$x->{'field'}.')';
	}
	my $groupstr = join ',', @group;
	my $formulastr = join ',', @formula;
	print Dumper \@group;
	print Dumper \@formula;
	my $query = "select $groupstr,$formulastr from $table group by $groupstr"
		if $groupstr;
	print Dumper $query;
}

 view release on metacpan or  search on metacpan

GoBoard.pm  view on Meta::CPAN

   my $w2      = $w - $borderw * 2;
   my $h2      = $h - $borderh * 2;
   my $edge    = ceil $w2 / ($size + 1);
   my $ofs     = $edge * 0.5;

   # we need a certain minimum size, and just fudge some formula here
   return if $w < $size * 5 + 2 + $borderw
          || $h < $size * 6 + 2 + $borderh;

   my @kx = map int ($w2 * $_ / ($size+1) + $borderw + 0.5), 0 .. $size; $self->{kx} = \@kx;
   my @ky = map int ($h2 * $_ / ($size+1) + $borderh + 0.5), 0 .. $size; $self->{ky} = \@ky;

 view release on metacpan or  search on metacpan

t/4_select.t  view on Meta::CPAN

$event->set_always( 'x', 93 );
$event->set_always( 'y', 67 );
$view->get_tool->button_released($event);

SKIP: {
    skip "I can't figure out the correct formula here which works with HiDPI", 1
      if $view->get('scale-factor') > 1;
    cmp_deeply(
        $view->get_selection,
        {
            x      => num(32),

 view release on metacpan or  search on metacpan

lib/HOI/Comprehensions.pm  view on Meta::CPAN

=head1 FUNCTIONS

=head2 comp($@)->(@)

For creating a list comprehension object. The formula for computing the elements of
the list is given as a subroutine, following by the generators, in form of name => arrayref, 
name => subroutine or name => comprehension. Comp returns a function which takes all guards 
in form of subroutines. Guard parameters can be left empty if there is no guard.

The variable names for naming the ganerators could be used directly in the computation sub and
all guard subs without strict vars enabled. They have local scope as if they were declared with
keyword 'local' in Perl.

A hashref which holds generator variables as its keys and value of those variables as
its values is passed to the formula subroutine. However, it is recommended to use such
variables directly instead of dereference the hashref.

Generators can be arrayrefs, subroutines or list comprehensions. A subroutine generator should 
return a pair ( elt, done ), where elt is the next element and done is a flag telling whether
the iteration is over, or return a single element.

 view release on metacpan or  search on metacpan

t/resources/t-gone/symptoms.html  view on Meta::CPAN

href="http://national-paranormal-society.org/psychotic-disorders-generalized/" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://national-paranormal-society.org/psychotic-disorders-generalized/', 'psychotic');">psychotic</a> or schizo...
href="http://www.ncbi.nlm.nih.gov/pubmed/23948178" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.ncbi.nlm.nih.gov/pubmed/23948178', '10% to 15%');">10% to 15%</a> of the overall population. Tinnitus is not commonly limited to ...
href="http://www.medicinenet.com/brain_tumor/article.htm" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.medicinenet.com/brain_tumor/article.htm', 'a cranial tumor');">a cranial tumor</a>, or epilepsy.</p><p>&nbsp;</p><p>Sympto...
href="http://www.webmd.com/a-to-z-guides/understanding-tinnitus-symptoms" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.webmd.com/a-to-z-guides/understanding-tinnitus-symptoms', 'be a sign of Meniere’s disease');">be a sign ...
href="http://www.mayoclinic.org/diseases-conditions/tinnitus/basics/risk-factors/con-20021487" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://www.mayoclinic.org/diseases-conditions/tinnitus/basics/risk-factors/con-20021487', 'are m...
href="http://stopmyearsringing.weebly.com/t-gone-tinnitus-remedies.html" onclick="__gaTracker('send', 'event', 'outbound-article', 'http://stopmyearsringing.weebly.com/t-gone-tinnitus-remedies.html', 'brought on by sinus problems');">brought on by si...
class="clear"></div></div></div></div><div
class="sidebar"><div
class="widget widget_text"><div
class="widget-content"><div
class="textwidget"><center><img

 view release on metacpan or  search on metacpan

contrib/hp_disk_info.cgi  view on Meta::CPAN

print POSTOUT "check_xwrap","\n";
#end of spacer
print POSTOUT "             } if","\n";
print POSTOUT "                } def","\n";
print POSTOUT "%","\n";
print POSTOUT "%------------defines--formula-based","\n";
print POSTOUT "%","\n";
print POSTOUT "","\n";
print POSTOUT "% Define the Font","\n";
print POSTOUT "/HelveticaBold findfont fonth scalefont setfont","\n";
print POSTOUT "%width of cell (will vary depening on maximum string width","\n";

 view release on metacpan or  search on metacpan

contrib/hp_disk_info.cgi  view on Meta::CPAN

print POSTOUT "check_xwrap","\n";
#end of spacer
print POSTOUT "             } if","\n";
print POSTOUT "                } def","\n";
print POSTOUT "%","\n";
print POSTOUT "%------------defines--formula-based","\n";
print POSTOUT "%","\n";
print POSTOUT "","\n";
print POSTOUT "% Define the Font","\n";
print POSTOUT "/HelveticaBold findfont fonth scalefont setfont","\n";
print POSTOUT "%width of cell (will vary depening on maximum string width","\n";

 view release on metacpan or  search on metacpan

share/html-3-strict.dtd  view on Meta::CPAN

                "{" REF5 >

<!--
 The inclusion of %math and exclusion of %notmath is used here
 to alter the content model for the B, SUB and SUP elements,
 to limit them to formulae rather than general text elements.
-->

<!ENTITY % mathvec "VEC|BAR|DOT|DDOT|HAT|TILDE" -- common accents -->
<!ENTITY % mathface "B|T|BT" -- control of font face -->
<!ENTITY % math "BOX|ABOVE|BELOW|%mathvec|ROOT|SQRT|ARRAY|SUB|SUP|%mathface">
<!ENTITY % formula "#PCDATA|%math">

<!ELEMENT MATH - - (#PCDATA)* -(%notmath) +(%math)>
<!ATTLIST MATH
        id      ID      #IMPLIED
        class    NAMES   #IMPLIED -- e.g. class=chem -->

share/html-3-strict.dtd  view on Meta::CPAN

     Note that the names of common functions are recognized
     by the parser without the need to use "&" and ";" around
     them, e.g. int, sum, sin, cos, tan, ...
-->

<!ELEMENT BOX - - ((%formula)*, (LEFT, (%formula)*)?,
                   ((OVER|ATOP|CHOOSE), (%formula)*)?,
                   (RIGHT, (%formula)*)?)>
<!ATTLIST BOX
        size  (normal|medium|large|huge) normal -- oversize delims -->

<!ELEMENT (OVER|ATOP|CHOOSE|LEFT|RIGHT) - O EMPTY>

share/html-3-strict.dtd  view on Meta::CPAN

     
     e.g. <above sym=ssmile>x</above>
     places an upwardly turning curve above the "x"
 -->

<!ELEMENT ABOVE - - (%formula)+>
<!ATTLIST ABOVE sym ENTITY #IMPLIED>

<!-- Horizontal line drawn BELOW contents
     The symbol attribute allows authors to 
     supply an entity name for an arrow symbol etc.
     Generalisation of LaTeX's underline command.
 -->

<!ELEMENT BELOW - - (%formula)+>
<!ATTLIST BELOW sym ENTITY #IMPLIED>

<!-- Convenience tags for common accents:
     vec, bar, dot, ddot, hat and tilde
-->

<!ELEMENT (%mathvec) - - (%formula)+>

<!--
  T and BT are used to designate terms which should
  be rendered in an upright font (& bold face for BT)
-->

<!ELEMENT (T|BT) - - (%formula)+>
<!ATTLIST (T|BT) class NAMES #IMPLIED>

<!-- Roots  e.g. <ROOT>3<OF>1+x</ROOT> -->

<!ELEMENT ROOT - - ((%formula)+, OF, (%formula)+)>
<!ELEMENT OF - O (%formula)* -- what the root applies to -->

<!ELEMENT SQRT - - (%formula)* -- square root convenience tag -->

<!-- LaTeX like arrays. The COLDEF attribute specifies
     a single capital letter for each column determining
     how the column should be aligned, e.g. coldef="CCC"

share/html-3-strict.dtd  view on Meta::CPAN

        ldelim  CDATA   #IMPLIED  -- stretchy left delimiter --
        rdelim  CDATA   #IMPLIED  -- stretchy right delimiter --
        labels (labels) #IMPLIED  -- TeX's \bordermatrix style -->

<!ELEMENT ROW - O (ITEM)*>
<!ELEMENT ITEM - O (%formula)*>
<!ATTLIST ITEM
        align   CDATA  #IMPLIED  -- override coldef alignment --
        colspan NUMBER 1         -- merge columns as per TABLE --
        rowspan NUMBER 1         -- merge rows as per TABLE -->

 view release on metacpan or  search on metacpan

lib/HTML/Dojo/src.pm  view on Meta::CPAN

 * prototype a data provider that enforces strong typing
 * prototype a data provider that prevents ad-hoc attributes
 * prototype a data provider that enforces single-kind item
 * prototype a data provider that allows for login/authentication
 * have loosely typed result sets play nicely with widgets that expect strong typing
 * prototype an example of spreadsheet-style formulas or derivation rules
 * experiment with some sort of fetch() that returns only a subset of a data provider's items


__CPAN_FILE__ src/data/old/Item.js
/*

 view release on metacpan or  search on metacpan

t/test.html  view on Meta::CPAN

estado de la cuestión, aunque quizá el escaso número de motores desarrollados en 
ese momento limit&oacute; el alcance del mismo.</p>
<h3>Leighton y Srivastava (1995-1999).</h3>
<p>De similar importancia al trabajo anterior son las aportaciones de Leighton y 
Srivastava. En el primero de sus trabajos, Leighton evaluaba cuatro motores: 
Infoseek, Lycos, Webcrawler y WWWWorm. Tras la formulaci&oacute;n y ejecuci&oacute;n de ocho 
preguntas, calculaba una serie de medidas basadas en la relevancia, considerando 
adem&aacute;s la ratio de acierto &uacute;nico (documentos recuperados s&oacute;lo en un motor), y el 
n&uacute;mero de enlaces err&oacute;neos junto al n&uacute;mero de documentos duplicados. El 
resultado final de este estudio destaca a Lycos e Infoseek sobre los otros dos. 
El impacto de este trabajo sorprendi&oacute; hasta al mismo autor, quien al principio 

t/test.html  view on Meta::CPAN

web elaborada desde el punto de vista del usuario final (<a href="#Johnson, F.C">Johnson, 2001</a>).</p>

<h3>Oppenheim (2000).</h3>

<p>A partir de la s&iacute;ntesis de estudios de evaluaci&oacute;n anteriores, los autores 
formulan una metodolog&iacute;a de evaluaci&oacute;n de los motores de b&uacute;squeda, agrupando los 
m&eacute;todos m&aacute;s empleados en cuatro categor&iacute;as: </p>
<ul>
  <li>Evaluaciones a peque&ntilde;a escala </li>
  <li>Evaluaciones basadas en los tests Cranfield </li>
  <li>Evaluaciones basadas en los tests Cranfield con estimaci&oacute;n del tama&ntilde;o del 

 view release on metacpan or  search on metacpan

lib/HTML/EasyTags.pm  view on Meta::CPAN

Thanks to W3C for publishing their standards documents in an easy-to-understand 
manner.  I made good use of their XHTML primer document when making release 1-06 
of this module.  The most recent version is at "http://www.w3.org/TR/xhtml1".  
The full title is "XHTML(TM) 1.0: The Extensible HyperText Markup Language -- 
A Reformulation of HTML 4 in XML 1.0 -- W3C Recommendation 26 January 2000".  
I used this document to determine what changes I needed to make for this 
module's output to easily support the new XHTML standard as it supported HTML 4 
and previous versions before, while keeping backwards compatability.

Thanks to B<Lincoln D. Stein> for setting a good interface standard in the

 view release on metacpan or  search on metacpan

IntroD.pod  view on Meta::CPAN

werden die Daten zunächst noch einmal angezeigt.
Von dort kann man zum vorherigen Formular zurückkehren, um die Daten zu
korrigieren oder der Benutzer bestätigt die Daten, wodurch sie zu einer vordefinierten
Email Adresse gesandt werden. Das Beispiel zeigt auch wie eine Fehlerüberprüfung
implementiert werden kann. Wenn der Name oder die Email Adresse weggelassen wird,
wird eine entsprechende Fehlermeldung angezeigt und das Eingabeformular erscheint wieder.

Der erste Teil ist die Fehlerüberprüfung; der zweite Teil die Bestätigungsseite;
der dritte Teil versendet die Email, wenn die Eingaben bestätigt wurden und der
letzte Teil ist das Eingabeformular.

In Abhängigkeit der Werte von C<$fdat{check}>, C<$fdat{send}> und ob C<$fdat{name}> und
C<$fdat{email}> Daten enthalten, entscheidet das Dokument welcher Teil zur
Ausführung kommt.

 view release on metacpan or  search on metacpan

t/10.extract.t  view on Meta::CPAN

    my $html = read_text( $FindBin::Bin . '/html/techcrunch.html' );

    my $EM = HTML::ExtractMeta->new( html => $html );

    is( $EM->title,       "The 10 Best iOS And Android Games Of 2012", 'get_title' );
    is( $EM->description, "Editor's note: Stephen Danos is the associate editor for the mobile app discovery site Appolicious. This year’s most captivating games either pushed the envelope with state-of-the-art graphics and rich narratives, or perf...
    is( $EM->url,         "http://techcrunch.com/2012/12/29/the-10-best-ios-and-android-games-of-2012/", 'get_url' );
    is( $EM->image_url,   "http://tctechcrunch2011.files.wordpress.com/2012/12/app-stores.jpg?w=136", 'get_image_url' );
    is( $EM->site_name,   "TechCrunch", 'get_site_name' );
    is( $EM->type,        "article", 'get_type' );

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/Model/HashRef.pm  view on Meta::CPAN

  # $hashref is very much the same as the hashref you passed to default_values()

=head1 DESCRIPTION

If you need the content of a formular as hashref or for processing with other modules
like C<JSON> you can use this model.

=head1 METHODS

=head2 create

 view release on metacpan or  search on metacpan

lib/HTML/FormHandler/I18N/ca_es.pm  view on Meta::CPAN

# Auto define lexicon
our %Lexicon = (
    '_AUTO' => 1,

    # H::F
    'There were errors in your form'=> q(El formulari te errors),

    # H::F::Field
    'field is invalid' => 'Campo invalido',
    'Wrong value' => 'Valor incorrecte',
    '[_1] does not match' => '[_1] no coincideix',

lib/HTML/FormHandler/I18N/ca_es.pm  view on Meta::CPAN

    'File not found for upload field' => q(El fitxer especificat no existeix),

    # H::F::Model
    'Value must be unique in the database' => 'El valor ha de ser únic a la base de dades',
    # H::F::Widget::Theme::BootstrapFormMessages
    'There were errors in your form' => q(Hi ha errors al formulari),
    'Your form was successfully submitted' => q(El formulari s'ha enviat correctament),
  );

1;

__END__

 view release on metacpan or  search on metacpan

lib/HTML/GUI/templates/js/prototype.js  view on Meta::CPAN

      },
      'only-of-type':   function(m) {
        var p = Selector.xpath.pseudos; return p['first-of-type'](m) + p['last-of-type'](m);
      },
      nth: function(fragment, m) {
        var mm, formula = m[6], predicate;
        if (formula == 'even') formula = '2n+0';
        if (formula == 'odd')  formula = '2n+1';
        if (mm = formula.match(/^(\d+)$/)) // digit only
          return '[' + fragment + "= " + mm[1] + ']';
        if (mm = formula.match(/^(-?\d*)?n(([+-])(\d+))?/)) { // an+b
          if (mm[1] == "-") mm[1] = -1;
          var a = mm[1] ? Number(mm[1]) : 1;
          var b = mm[2] ? Number(mm[2]) : 0;
          predicate = "[((#{fragment} - #{b}) mod #{a} = 0) and " +
          "((#{fragment} - #{b}) div #{a} >= 0)]";

lib/HTML/GUI/templates/js/prototype.js  view on Meta::CPAN

      for (var i = 0, results = [], node; node = nodes[i]; i++)
        if (!h.previousElementSibling(node) && !h.nextElementSibling(node))
          results.push(node);
      return results;
    },
    'nth-child':        function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, formula, root);
    },
    'nth-last-child':   function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, formula, root, true);
    },
    'nth-of-type':      function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, formula, root, false, true);
    },
    'nth-last-of-type': function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, formula, root, true, true);
    },
    'first-of-type':    function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, "1", root, false, true);
    },
    'last-of-type':     function(nodes, formula, root) {
      return Selector.pseudos.nth(nodes, "1", root, true, true);
    },
    'only-of-type':     function(nodes, formula, root) {
      var p = Selector.pseudos;
      return p['last-of-type'](p['first-of-type'](nodes, formula, root), formula, root);
    },

    // handles the an+b logic
    getIndices: function(a, b, total) {
      if (a == 0) return b > 0 ? [b] : [];

lib/HTML/GUI/templates/js/prototype.js  view on Meta::CPAN

        return memo;
      });
    },

    // handles nth(-last)-child, nth(-last)-of-type, and (first|last)-of-type
    nth: function(nodes, formula, root, reverse, ofType) {
      if (nodes.length == 0) return [];
      if (formula == 'even') formula = '2n+0';
      if (formula == 'odd')  formula = '2n+1';
      var h = Selector.handlers, results = [], indexed = [], m;
      h.mark(nodes);
      for (var i = 0, node; node = nodes[i]; i++) {
        if (!node.parentNode._counted) {
          h.index(node.parentNode, reverse, ofType);
          indexed.push(node.parentNode);
        }
      }
      if (formula.match(/^\d+$/)) { // just a number
        formula = Number(formula);
        for (var i = 0, node; node = nodes[i]; i++)
          if (node.nodeIndex == formula) results.push(node);
      } else if (m = formula.match(/^(-?\d*)?n(([+-])(\d+))?/)) { // an+b
        if (m[1] == "-") m[1] = -1;
        var a = m[1] ? Number(m[1]) : 1;
        var b = m[2] ? Number(m[2]) : 0;
        var indices = Selector.pseudos.getIndices(a, b, nodes.length);
        for (var i = 0, node, l = indices.length; node = nodes[i]; i++) {

 view release on metacpan or  search on metacpan

testdata/del.icio.us.html  view on Meta::CPAN

	</li>
	<li><h4><a href="/popular/cooking">cooking</a></h4>
	<ol>
		<li class="first"><a href="http://blog.ruhlman.com/2007/02/guest_blogging_.html">ruhlman.com: Guest Blogging: A Bourdain Throwdown</a></li>
		<li><a href="http://www.cookingforengineers.com/">Cooking For Engineers</a></li>
		<li><a href="http://cookthink.com/blog/?p=293">cookthink » Blog Archive » A formula for marinating</a></li>
	</ol>
	</li>
	<li><h4><a href="/popular/realestate">realestate</a></h4>
	<ol>
		<li class="first"><a href="http://www.realtytrac.com/">RealtyTrac</a></li>

 view release on metacpan or  search on metacpan

CREDITS  view on Meta::CPAN

(October '98)

The original idea for Mason was inspired by the component system used
by NetGuide Live at CMP Media in 1996.  HTML++ lives on!

Gady Costeff formulated the need for a better component-based web
engine and blessed us with a creative, open-minded environment.

Tom Smith protected our core development team from hostile forces,
kept calm during the storms, and was (and continues to be) a great
ally of the Mason open source initiative.

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

httpdocs/style/Crystal/22/mimetypes/j.png
httpdocs/style/Crystal/22/mimetypes/java.png
httpdocs/style/Crystal/22/mimetypes/karbon_karbon.png
httpdocs/style/Crystal/22/mimetypes/kchart_chrt.png
httpdocs/style/Crystal/22/mimetypes/kexi_kexi.png
httpdocs/style/Crystal/22/mimetypes/kformula_kfo.png
httpdocs/style/Crystal/22/mimetypes/kivio_flw.png
httpdocs/style/Crystal/22/mimetypes/kmultiple.png
httpdocs/style/Crystal/22/mimetypes/koffice.png
httpdocs/style/Crystal/22/mimetypes/kpresenter_kpr.png
httpdocs/style/Crystal/22/mimetypes/krita_kra.png

MANIFEST  view on Meta::CPAN

httpdocs/style/Crystal/32/mimetypes/j.png
httpdocs/style/Crystal/32/mimetypes/java.png
httpdocs/style/Crystal/32/mimetypes/karbon_karbon.png
httpdocs/style/Crystal/32/mimetypes/kchart_chrt.png
httpdocs/style/Crystal/32/mimetypes/kexi_kexi.png
httpdocs/style/Crystal/32/mimetypes/kformula_kfo.png
httpdocs/style/Crystal/32/mimetypes/kivio_flw.png
httpdocs/style/Crystal/32/mimetypes/kmultiple.png
httpdocs/style/Crystal/32/mimetypes/kpresenter_kpr.png
httpdocs/style/Crystal/32/mimetypes/krita_kra.png
httpdocs/style/Crystal/32/mimetypes/kspread_ksp.png

MANIFEST  view on Meta::CPAN

httpdocs/style/Crystal/48/mimetypes/j.png
httpdocs/style/Crystal/48/mimetypes/java.png
httpdocs/style/Crystal/48/mimetypes/karbon_karbon.png
httpdocs/style/Crystal/48/mimetypes/kchart_chrt.png
httpdocs/style/Crystal/48/mimetypes/kexi_kexi.png
httpdocs/style/Crystal/48/mimetypes/kformula_kfo.png
httpdocs/style/Crystal/48/mimetypes/kivio_flw.png
httpdocs/style/Crystal/48/mimetypes/kmultiple.png
httpdocs/style/Crystal/48/mimetypes/koffice.png
httpdocs/style/Crystal/48/mimetypes/kpresenter_kpr.png
httpdocs/style/Crystal/48/mimetypes/krita_kra.png

MANIFEST  view on Meta::CPAN

httpdocs/style/Crystal/64/mimetypes/info.png
httpdocs/style/Crystal/64/mimetypes/j.png
httpdocs/style/Crystal/64/mimetypes/java.png
httpdocs/style/Crystal/64/mimetypes/karbon_karbon.png
httpdocs/style/Crystal/64/mimetypes/kchart_chrt.png
httpdocs/style/Crystal/64/mimetypes/kformula_kfo.png
httpdocs/style/Crystal/64/mimetypes/kivio_flw.png
httpdocs/style/Crystal/64/mimetypes/kmultiple.png
httpdocs/style/Crystal/64/mimetypes/koffice.png
httpdocs/style/Crystal/64/mimetypes/kpresenter_kpr.png
httpdocs/style/Crystal/64/mimetypes/krita_kra.png

 view release on metacpan or  search on metacpan

lib/HTML/Selector/XPath.pm  view on Meta::CPAN

            $A = '-1';
        } elsif( $A eq '' ) {
            $A = '1';
        }
    } else {
        croak "Can't parse formula from '$$rrule'";
    }

    return ($A, $B);
}

 view release on metacpan or  search on metacpan

lib/HTML/Similarity.pm  view on Meta::CPAN

similarity between any two HTML documents. The underlying algorithm is
quite simple and straight-forward. It serializes two HTML tree to two
arrays containing node's tag names and finds the longest common
sequence between the two serialized arrays.

The similarity is measured with the formula (2 * LCS' length) /
(treeA's length + treeB's length).

Structural similarity can be useful for web page classification and
clustering.

 view release on metacpan or  search on metacpan

t/templates/simple_expr.tmpl  view on Meta::CPAN

<HTML><HEAD></HEAD>
<BODY>
If all is ok you can read this here --> <TMPL_IF EXPR="test eq 'ok'"><TMPL_VAR NAME="test">placeholder</TMPL_VAR></TMPL_IF>
This is a mathematical formula result: <TMPL_VAR EXPR="number * 5">placeholder</TMPL_VAR>
</BODY>
</HTML>

 view release on metacpan or  search on metacpan

lib/HTML/Tree/AboutTrees.pod  view on Meta::CPAN

needs to quantify the benefit of these moves as a number -- call that
the "payoff".  The payoff of a move can be figured as just the number
of x pieces removed by the most recent move, minus the number of o
pieces removed by the most recent move.  (It so happens that the rules
of the game mean that no move can delete both o's and x's, but the
formula still applies.)  Since none of these moves removed any pieces,
all these moves have the same immediate payoff: 0.

Now, we could race ahead and write an Alak-playing program that could
use the immediate payoff to decide which is the best move to make.
And when there's more than one best move (as here, where all the moves

 view release on metacpan or  search on metacpan

tidy-html5.c  view on Meta::CPAN

        "http://www.w3.org/International/O-URL-and-ident.html\n"
    },
    { TEXT_BAD_FORM,                                 0,        
        "Vous devrez peut-être déplacer une, ou les deux, balises <form>et</form>. \n"
        "Les éléments HTML doivent être correctement imbriquées et les éléments \n"
        "de formulaire ne font pas exception. Par exemple, vous ne devez pas placer \n"
        "<form>dans une cellule et </form>dans une autre. Si <form>est placé devant \n"
        "un tableau, </form> ne peut pas être placé à l'intérieur du tableau !\n"
        "Notez qu'un form ne peut pas être imbriqué dans un autre !\n"
    },
    { TEXT_BAD_MAIN,                                 0,        

tidy-html5.c  view on Meta::CPAN

    { INFORMATION_NOT_CONVEYED_APPLET,               0, "[2.1.1.2]: Vérifiez que l'information n'est pas transmise uniquement par la couleur (applet)."          },
    { INFORMATION_NOT_CONVEYED_OBJECT,               0, "[2.1.1.3]: Vérifiez que l'information n'est pas transmise uniquement par la couleur (object)."          },
    { INFORMATION_NOT_CONVEYED_SCRIPT,               0, "[2.1.1.4]: Vérifiez que l'information n'est pas transmise uniquement par la couleur (script)."          },
    { INFORMATION_NOT_CONVEYED_INPUT,                0,        
        "[2.1.1.5]: Vérifiez que l'information n'est pas transmise uniquement par la couleur (champs de "
        "formulaire)."
    },
    { COLOR_CONTRAST_TEXT,                           0, "[2.2.1.1]: contraste couleur faible (texte)."                                                           },
    { COLOR_CONTRAST_LINK,                           0, "2.2.1.2]: contraste couleur faible (lien)."                                                             },
    { COLOR_CONTRAST_ACTIVE_LINK,                    0, "2.2.1.3]: contraste couleur faible (lien actif)."                                                       },
    { COLOR_CONTRAST_VISITED_LINK,                   0, "2.2.1.4]: contraste couleur faible (lien visité)."                                                      },

tidy-html5.c  view on Meta::CPAN

    { REPLACE_DEPRECATED_HTML_STRIKE,                0, "[11.2.1.9]: remplacer l'élément HTML déprécié <strike>."                                                },
    { REPLACE_DEPRECATED_HTML_U,                     0, "[11.2.1.10]: remplacer l'élément HTML déprécié <u>."                                                    },
    { FRAME_MISSING_TITLE,                           0, "[12.1.1.1]: <frame> absence de titre."                                                                  },
    { FRAME_TITLE_INVALID_NULL,                      0, "[12.1.1.2]: <frame> titre non valide (null)."                                                           },
    { FRAME_TITLE_INVALID_SPACES,                    0, "[12.1.1.3]: <frame> titre non valide (espaces)."                                                        },
    { ASSOCIATE_LABELS_EXPLICITLY,                   0, "[12.4.1.1]: associer explicitement les étiquettes avec les contrôles de formulaire."                    },
    { ASSOCIATE_LABELS_EXPLICITLY_FOR,               0, "[12.4.1.2]: associer explicitement les étiquettes avec les contrôles de formulaire (for)."              },
    { ASSOCIATE_LABELS_EXPLICITLY_ID,                0, "[12.4.1.3]: associer explicitement les étiquettes avec les contrôles de formulaire (id)."               },
    { LINK_TEXT_NOT_MEANINGFUL,                      0, "[13.1.1.1]: texte du lien peu significatif."                                                            },
    { LINK_TEXT_MISSING,                             0, "[13.1.1.2]: texte du lien manquant."                                                                    },
    { LINK_TEXT_TOO_LONG,                            0, "[13.1.1.3]: texte du lien trop long."                                                                   },
    { LINK_TEXT_NOT_MEANINGFUL_CLICK_HERE,           0, "[13.1.1.4]: texte du lien peu significatif (click here)."                                               },
    { METADATA_MISSING,                              0, "[13.2.1.1]: Métadonnées manquantes."                                                                    },

 view release on metacpan or  search on metacpan

examples/mets.xml  view on Meta::CPAN

<mods:originInfo><mods:copyrightDate encoding="iso8601">2002</mods:copyrightDate></mods:originInfo>
<mods:originInfo><mods:dateIssued encoding="iso8601">2002</mods:dateIssued></mods:originInfo>
<mods:identifier type="uri">http://hdl.handle.net/1721.1/8338</mods:identifier>
<mods:note>Thesis (Ph. D.)--Massachusetts Institute of Technology, Dept. of Mathematics, 2002.</mods:note>
<mods:note>Includes bibliographical references (p. 89-91).</mods:note>
<mods:abstract>Geometry is the synthetic tool we use to unify all existing analytical cone-beam reconstruction methods. These reconstructions are based on formulae derived by Tuy [Tuy, 1983], Smith [Smith, 1985] and Grangeat [Grangeat, 1991] which ex...
<mods:abstract>(cont.) In cone-beam X-ray reconstruction, for example, each cone-beam projection is seen as a 2D projective subspace embedded in the Radon manifold. Besides the duality in the space relation, the symbiosis played between algebra and g...
<mods:note type="provenance">Made available in DSpace on 2005-08-23T19:18:06Z (GMT). No. of bitstreams: 2
50500372.pdf: 5942218 bytes, checksum: b1eba8f820c75fe04e1de950af6c3548 (MD5)
50500372-MIT.pdf: 5941980 bytes, checksum: ed337b0618cf18bd701502cc9e79e823 (MD5)
  Previous issue date: 2002</mods:note>

 view release on metacpan or  search on metacpan

lib/HTTP/Promise/MIME.pm  view on Meta::CPAN

}

sub _data
{
    my $data = <<'EOT';
{"application/vnd.is-xpr":["xpr"],"application/vnd.groove-help":["ghf"],"application/vnd.curl.pcurl":["pcurl"],"application/onenote":["onetoc","onetoc2","onetmp","onepkg"],"application/x-authorware-map":["aam"],"application/x-texinfo":["texinfo","tex...
EOT
    return( \$data );
}

# NOTE: sub FREEZE is inherited

 view release on metacpan or  search on metacpan

lib/HTTP/Proxy/Selective.pm  view on Meta::CPAN

    stl => "application/vnd.ms-pki.stl",
    ppt => "application/vnd.ms-powerpoint",
    pps => "application/vnd.ms-powerpoint",
    odc => "application/vnd.oasis.opendocument.chart",
    odb => "application/vnd.oasis.opendocument.databas",
    odf => "application/vnd.oasis.opendocument.formula",
    odg => "application/vnd.oasis.opendocument.graphics",
    otg => "application/vnd.oasis.opendocument.graphics-template",
    odi => "application/vnd.oasis.opendocument.image",
    odp => "application/vnd.oasis.opendocument.presentation",
    otp => "application/vnd.oasis.opendocument.presentation-template",

 view release on metacpan or  search on metacpan

QuickBase.pm  view on Meta::CPAN

=over 4

=item $qdb->addField($QuickBaseID, $label, $type, $mode)

Creates a field with the label $label of label, a type of $type and if the field is to be a formula field then set $mode to 'virtual' otherwise set it to the empty string.

Returns the fid of the new field.

=back

QuickBase.pm  view on Meta::CPAN

Use $qdb->EditRecordWithUpdateID($QuickBaseID, $rid, $update_id, %recorddata) to take advantage of conflict detection.
If $update_id is supplied then the edit will only succeed if the record's current update_id matches.

Returns the XML response from QuickBase after modifying every valid field refered to in %recorddata.

Not all fields can be modified. Built-in and formula (virtual) fields cannot be modified. If you attempt to 
modify them with EditRecord you will get an error and no part of the record will have been modified. 

=back

=head2 Retrieving Information

 view release on metacpan or  search on metacpan

examples/stage1_setup/setup_ligands_sets.pl  view on Meta::CPAN

  
      my $mol = $dockem->read_file_mol($lig);
      $stor->{$lig->basename('.pdbqt')} = {
                                                BEST    => { BE => 0 },
                                                TMass   => $mol->total_mass,
                                                formula => $mol->bin_atoms_name, 
                                                lpath   => $lig->stringify,
      };
    }
    print $fh encode_json $stor;