---
name: "Graphics::Primitive::Border"
section: "3pm"
platform: "linux"
package: "libgraphics-primitive-perl"
version: "0.67-2"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Graphics::Primitive::Border"
---

# Graphics::Primitive::Border(3pm)

Line around components

## NAME

Graphics::Primitive::Border - Line around components

## DESCRIPTION

Graphics::Primitive::Border describes the border to be rendered around a component.

## SYNOPSIS

```
  use Graphics::Primitive::Border;
  my $border = Graphics::Primitive::Border->new;
```

## METHODS

### new

Creates a new Graphics::Primitiver::Border.  Borders are composed of 4 brushes, one for each of the 4 sides.  See the documentation for Graphics::Primitive::Brush for more information.  Note that you can provide a `"width"` and `"color"` argument to the constructor and it will create brushes of that width for each side.

### bottom

The brush representing the bottom border.

### clone

Close this border.

### color

Set the Color on all 4 borders to the one supplied.  Shortcut for setting it with each side.

### dash\_pattern

Set the dash pattern on all 4 borders to the one supplied. Shortcut for setting it with each side.

### equal\_to ($other)

Returns 1 if this border is equal to the one provided, else returns 0.

### homogeneous

Returns 1 if all of this border's sides are the same.  Allows for driver optimizations.

### left

The brush representing the left border.

### not\_equal\_to

Opposite of `"equal_to"`.

### right

The brush representing the right border.

### top

The brush representing the top border.

### width

Set the width on all 4 borders to the one supplied.  Shortcut for setting it with each side.

## AUTHOR

Cory Watson, `"<gphat@cpan.org>"`

## COPYRIGHT & LICENSE

Copyright 2008-2010 by Cory G Watson.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.