Sure, here it is. This is my class constructor which sets primary attributes:

sub new {
    my $class = shift || __PACKAGE__;

    my $self;

    if ( scalar @_ == 1 ) {
        ( $self->{RemoteAddr}, $self->{RemotePort} ) = split( ':', shi
+ft );
    }
    else { $self = {@_} }

    foreach (qw(RemoteAddr RemotePort)) {
        confess $_ . " was not cofigured" unless $self->{$_};
    }

    $self->{FuzzLevel} ||= 1;
    $self->{Debug}     ||= 0;
    $self->{Path}      ||= 'report.html';
    $self->{Report}    ||= 0;
    $self->{Ready}          = 0;
    $self->{Socket}         = undef;
    $self->{LastSentFinger} = undef;

    bless( $self, ref $class || $class );
}
[download]

And these are some additional attributes which will be added later by another sub:

    $self->{FuzzData} = {
        _Letters => {
            __data => [
                        # a lot of data here
            ],
            __example => qr/(\w{1})/
        },
        _Formats => {
            __data => [
                        # again data
            ],
            __example => qr/(%\w{1})/
        },
        _Numbers => {
            __data => [
                        # and again
            ],
            __example => qr/(\d{1)}/
        }
    };

    $self->{ProtoData} = {
        _ActionData => {
            __ActionCmd      => [],
            __ActionExit     => undef,
            __ActionTemplate => undef
        },
        _LoginData => {
            __LoginUser     => undef,
            __LoginPass     => undef,
            __LoginSuccess  => undef,
            __LoginTemplate => undef
        },
        _ProtoPresets => {
            ftp  => \&{ $self->_LoadPresetFTP },
            http => \&{ $self->_LoadPresetHTTP },
            pop3 => \&{ $self->_LoadPresetPOP3 },
            smtp => \&{ $self->_LoadPresetSMTP }
        }
    };
[download]

So, you can notice that attributes are grouped topically

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.