/
trilirium
/
Kaffe
Обзор
Документация
Войти
/
trilirium
/
Kaffe
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
scripts/WarningDescription.pm
41 строка
727 B
Trilirium
Kaffe
10 авг 2026, 17:27
10 авг 2026, 17:27
7c3956b
Код
Авторство
О чём код?
#!/usr/bin/perl -w package WarningDescription; use strict; use warnings; sub new { my $class = shift; my %data; if ( ref( $_[ 0 ] ) ) { $data{ 'parent' } = shift; } else { $data{ 'compiler' } = shift; $data{ 'simple-name' } = shift; } $data{ 'description' } = shift; return bless( \%data, $class ); } sub compiler { my $self = shift; if ( $_[ 0 ] ) { $self->{ 'compiler' } = $_[ 0 ]; } else { return $self->{ 'parent' } ? $self->{ 'parent' }->compiler() : $self->{ 'compiler' }; } } sub name { my $self = shift; my $compiler = $self->compiler(); return ( $compiler ? $compiler . "/" : "" ) . $self->{ 'simple-name' }; } sub description { my $self = shift; return $self->{ 'description' }; } 1;