# This program is free software: you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation, either version 3 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program.  If not, see <http://www.gnu.org/licenses/>.

package CrashTest::Models::Thread;

use Mojo::Base -base;

use Mojo::ByteStream 'b';

use Mojolicious::Plugin::TagHelpers;

use CrashTest::Models::Frame;

has [ qw/frame_count crashing_thread frames/ ];

sub new {

    my $self = shift->SUPER::new(@_);

    foreach my $frame(@{$self->frames}) {

        $frame = CrashTest::Models::Frame->new($frame);

    }

    return $self;

}

sub each_frame {

    my ($self, $block) = @_;

    foreach my $frame(@{$self->frames}) {

        $block->($frame);

    }

}

1;