Skip to content
Extraits de code Groupes Projets
Sélectionner une révision Git
  • 0eed01e7c5561201bca92d92d6d41b8e8d7317e5
  • master par défaut protégée
  • rust-playlist-sync
  • rust
  • fix-qt-deprecated-qvariant-type
  • fix-mpris-qtwindow-race-condition
  • rust-appimage-wayland
  • windows-build-rebased
  • v2.5 protégée
  • v2.4 protégée
  • v2.3-1 protégée
  • v2.3 protégée
  • v2.2 protégée
  • v2.1 protégée
  • v2.0 protégée
  • v1.8-3 protégée
  • v1.8-2 protégée
  • v1.8-1 protégée
  • v1.8 protégée
  • v1.7 protégée
  • v1.6 protégée
  • v1.5 protégée
  • v1.4 protégée
  • v1.3 protégée
  • v1.2 protégée
  • v1.1 protégée
  • v1.0 protégée
27 résultats

module_sdl2.c

Blame
  • query.pm 1,97 Kio
    package commands::get::query;
    
    use Moose;
    use overload '~~' => \&_equals;
    use Scalar::Util qw(looks_like_number);
    
    has 'query' => (
        is          => 'ro',
        isa         => 'Str',
        required    => 1
    );
    
    has 'chan' => (
        is          => 'ro',
        isa         => 'Str',
        required    => 1
    );
    
    has 'is_global' => (
        is          => 'ro',
        isa         => 'Bool',
        lazy        => 1,
        builder     => '_build_is_global',
        init_arg    => undef
    );
    
    has 'tags' => (
        is          => 'ro',
        isa         => 'ArrayRef[Str]',
        lazy        => 1,
        builder     => '_build_tags',
        init_arg    => undef
    );
    
    has 'words' => (
        is          => 'ro',
        isa         => 'ArrayRef[Str]',
        lazy        => 1,
        builder     => '_build_words',
        init_arg    => undef
    );
    
    has 'id' => (
        is          => 'ro',
        isa         => 'Int',
        lazy        => 1,
        builder     => '_build_id',
        init_arg    => undef
    );
    
    
    sub _build_is_global {
        my $self = shift;
    
        if ($self->chan !~ /^#/ || $self->query =~ /(^|\s)-a(ll)?($|\s)/) {
            return 1;
        } else {
            return 0;
        }
    }
    
    sub _build_tags {
        my $self = shift;
    
        my $query = $self->query;
        $query =~ s/(^|\s)-a(ll)?($|\s)//;
        
        return [$query =~ /#([a-zA-Z0-9_-]+)/g];
    }