The C<X::Protocol::X11> contains adjustments to X::Protocol for the
X11 protocol.  This includes standard human-readable strings, and
use of additional fields in X11 protocol structures.


use X::Protocol;

unit class X::Protocol::X11 is X::Protocol;



X::Protocol::X11 - Perl6 Exception class for X11 Protocol Errors


NAME

code

=begin code

    use X::Protocol::X11;

    X::Protocol::X11.new(:status(5), :bad_value(0x28000004),
                         :major_opcode<ChangeProperty(18)>).throw
    # Dies with:
    #

=end code


SYNOPSIS

DESCRIPTION


has $.status;
method code is rw { $!status }
has $.sequence;
has $.bad_value;
has $.major_opcode;

method protocol { 'X11' }

method bad_value_name {
    :{  2    => 'Value',
        3    => 'Window',
        4    => 'Pixmap',
        5    => 'Atom',
        6    => 'Cursor',
        7    => 'Font',
        9    => 'Drawable',
        12   => 'Colormap',
        13   => 'Context',
        14   => 'ID'
    }
}

method codes {
    :{
        1    => 'Bad Request',
        2    => 'Bad Value',
        3    => 'Bad Window',
        4    => 'Bad Pixmap',
        5    => 'Bad Atom',
        6    => 'Bad Cursor',
        7    => 'Bad Font',
        8    => 'No match',
        9    => 'Bad Drawable',
        10   => 'No access',
        11   => 'Alloc failed',
        12   => 'Bad Colormap',
        13   => 'Bad Graphics Context',
        14   => 'Bad IDChoice',
        15   => 'Bad name',
        16   => 'Incorrect Length',
        17   => 'Implementation Error'
    }
}

# TDB
# method severity { }

method message {
    ("$.protocol protocol error: {self.codes{self.status}}",
       "for request #{$.sequence.Str.fmt('0x%x')}",
       "(Opcode $.major_opcode)",
       (self.bad_value_name{self.status}:exists ?? 
        self.bad_value_name{self.status} ~ $.bad_value.Str.fmt("(0x%x)") !! |()),
       ).join(" ");
}

method gist {
    ("{self.codes{self.status}}",
       (self.bad_value_name{self.status}:exists ?? 
        self.bad_value_name{self.status} ~ $.bad_value.Str.fmt("(0x%x)") !! |()),
       ).join(" ");
}



AUTHOR

COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the terms of the Perl Artistic License 2.0.


LICENSE

SEE-ALSO

root

README

The C<X::Protocol::HTTP> contains adjustments to X::Protocol for HTTP.
This includes standard human-readable strings, and some additional
"severity" levels that may be useful for flow control decisions.


Additional tweaks can be added easily by subclassing.  Suggestions
for better defaults are always welcome.


Codes between 400 and 499 are of severity "error" and C<.toss> will
throw them.  Codes 500 and above are of severity "failure" and
C<.toss> will result in a C<Failure>.


X::Protocol::HTTP - Perl6 Exception class for HTTP results


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<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<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=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>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=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/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


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