Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
CIDFont	[ DIR ]	drwxr-xr-x
ColorSpace	[ DIR ]	drwxr-xr-x
Font	[ DIR ]	drwxr-xr-x
XObject	[ DIR ]	drwxr-xr-x
BaseFont.pm	17.48 KB	-rw-r--r--
CIDFont.pm	7.51 KB	-rw-r--r--
ColorSpace.pm	1.28 KB	-rw-r--r--
Colors.pm	28.85 KB	-rw-r--r--
ExtGState.pm	5.52 KB	-rw-r--r--
Font.pm	4.73 KB	-rw-r--r--
Glyphs.pm	273.64 KB	-rw-r--r--
PaperSizes.pm	1.46 KB	-rw-r--r--
Pattern.pm	281 B	-rw-r--r--
Shading.pm	137 B	-rw-r--r--
UniFont.pm	4.63 KB	-rw-r--r--
XObject.pm	778 B	-rw-r--r--

Code Editor : ColorSpace.pm

package PDF::API2::Resource::ColorSpace;

use base 'PDF::API2::Basic::PDF::Array';

use strict;
use warnings;

our $VERSION = '2.043'; # VERSION

use PDF::API2::Basic::PDF::Utils;
use PDF::API2::Util;
use Scalar::Util qw(weaken);

=head1 NAME

PDF::API2::Resource::ColorSpace - Base class for PDF color spaces

=head1 METHODS

=over

=item $cs = PDF::API2::Resource::ColorSpace->new $pdf, $key, %parameters

Returns a new colorspace object. base class for all colorspaces.

=cut

sub new {
    my ($class, $pdf, $key) = @_;

$class = ref($class) if ref($class);
    my $self = $class->SUPER::new();
    $pdf->new_obj($self) unless $self->is_obj($pdf);
    $self->name($key || pdfkey());
    $self->{' apipdf'} = $pdf;
    weaken $self->{' apipdf'};

return $self;
}

=item $name = $res->name $name

Returns or sets the Name of the resource.

=cut

sub name {
    my $self = shift();
    if (@_ and defined $_[0]) {
        $self->{' name'} = $_[0];
    }
    return $self->{' name'};
}

sub type {
    my $self = shift();
    if (@_ and defined $_[0]) {
        $self->{' type'} = $_[0];
    }
    return $self->{' type'};
}

=item @param = $cs->param @param

Returns properly formatted color-parameters based on the colorspace.

=cut

sub param {
    my $self = shift();
    return @_;
}

=back

=cut

${this.title}

Code Editor : ColorSpace.pm