para

head

OpenRouter::API::Pricing - Shared wire-price parsing for Result classes


code

=begin code :lang<raku>

use OpenRouter::API::Pricing;

my $p = parse-price(%data<pricing><prompt>);
my $variable = is-price-sentinel(%data<pricing><prompt>);

=end code


Internal helper used by every C<OpenRouter::API::Result::*> class
that exposes a per-token price (C<Model>, C<Endpoint>). It is in
C<provides> only because those classes load it; it is not part of the
public API. It exists so the sentinel rule below lives in exactly one
place instead of being copy-pasted per class.


OpenRouter sends prices as decimal strings (e.g. C<"0.000005">), but
reserves the literal value C<-1> as a sentinel meaning "variable /
indeterminate" — used on router models (e.g. C<openrouter/auto>)
whose real cost depends on which underlying model a request gets
routed to. C<-1> is never a real price.



unit module OpenRouter::API::Pricing;

#|( True iff C<$v> is OpenRouter's C<-1> "variable pricing" sentinel.
    Compares numerically, so the wire strings C<"-1"> and C<"-1.0">,
    and the bare number C<-1>, all count. Any other value — including
    other negative numbers, which are malformed rather than
    sentinel — returns False. )
our sub is-price-sentinel($v --> Bool:D) is export {
	return False unless $v.defined;
	my $n = try { $v.Rat };
	return False unless $n.defined;
	$n == -1;
}

#|( Parses an OpenRouter wire price field (e.g. C<pricing.prompt>)
    into a C<Rat> USD-per-token value. Returns the undefined C<Rat>
    when:
    

item

the value doesn't parse as a number (defensive — a
          malformed value returns undefined rather than throwing),


the value is the C<-1> variable-pricing sentinel (see
          C<is-price-sentinel>) — the real price is unknown /
          model-dependent, not negative one,


the value is any OTHER negative number, which is malformed
          wire data (a price can't be negative) and is reported as
          undefined rather than propagated.



    Callers that need to tell "undefined because variable" apart
    from "undefined because absent/malformed" should call
    C<is-price-sentinel> directly, or use the containing Result
    class's C<has-variable-pricing> helper where one is exposed. Cost
    math must always check C<.defined> before comparing — an
    undefined price is never safe to treat as zero or as "within
    budget". )
our sub parse-price($v --> Rat) is export {
	return Rat unless $v.defined;
	my $n = try { $v.Rat } // Rat;
	return Rat unless $n.defined;
	return Rat if $n < 0;
	$n;
}


root

OpenRouter::API::Result::ActivityRow

OpenRouter::API::Filter

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI agent|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


OpenRouter::API::Pricing

NAME

SYNOPSIS

DESCRIPTION

OpenRouter::API v0.2.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation